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Introduction 


This book was written for individuals, families, and everyone who 
wants to have fun with the ATARI computer. It is also designed 
as a hands-on book for the novice as well as the experienced 
programmer. The assortment of games listed here are both adapta¬ 
tions of traditional board and card games, and some games written 
specifically for the computer. Most of the games are suitable for 
children as well as adults. 

Chapter 1 contains adaptations of well-known card games. 
Although most card games are written for two or more players, 
the computer can be used as a challenging opponent. Children will 
enjoy these versions of Fish and Olcl Maid. Tarot and Twenty-One 
were written as party games. 

Traditional pencil-and-paper games are easily adapted for the 
computer; the screen becomes an endless supply of paper and the 
joysticks or arrow keys are fine electronic pencils. The games in 
Chapter 2 include some for all skill levels. Some of these games 
require the player to calculate his moves; others depend more on 
luck than skill. All the games are based on a type or grid format. 

Word games have become very popular in the past few years. 
An advantage of computer games is that the words used in the 
program can be changed to meet the player’s level. Jotto and Robot- 
jnan can be played with youngsters as well as adults. Fractured 
Stories is a favorite for all ages. Decoder has two levels of play; use 
the symbols when the letter encryptions are no longer a challenge. 




Logic games challenge the mind. Some of the games in Chapter 
4 are based on mathematical formulas; others require concentra¬ 
tion in order to win. These games can be played alone or with a 
friend. The computer serves as the game master, making sure the 
rules are followed. 

Chapter 5 contains simulations. These games offer many 
challenges while increasing hand-eye coordination. Jacks and 
Marbles are based on children’s games. There is a variation of Darts, 
and Ski is for those who want to enjoy that sport safely! The version 
of Pinball is designed for young children who do not have the skills 
for arcade games but want to play anyway. 

The techniques used in the programs are described with the 
listings. Many of the programs use the ATARI’S unique features 
of player/missile graphics, movable character sets, and interrupts. 
By understanding these features better, you will be able to incor¬ 
porate them into your own programs. Figures depict the new 
characters and how they are used in the program. All programs 
use the ATARI’S color and sound capabilities. 

The programs are written on an intermediate level, but, al¬ 
though the programs are thoroughly explained, the explanations 
are written with the assumption that you know the rudiments of 
programming. 

These programs are designed to work on all ATARI computers 
with 16K of memory. Some of the programs require one joystick; 
a few require two. The requirements are listed within each pro¬ 
gram description. 


VI 



Chapter 1 



Card Games 

This chapter contains several favorite games to play against the 
computer. Go Fish and Old Maid are one-player games kids will 
enjoy; Twenty-One or Blackjack can be played by one or two players. 
The computer will attempt to tell your future in the Tarot program. 

GO FISH 

Objective of the game: To collect more pairs of cards than 
the computer. 

Directions: The computer deals five cards to you and five 
to itself. You are asked if you want to go first. Enter Y if do, other¬ 
wise, enter N. You are asked to enter your pair. If you do not have 
a pair, press the Return key. A pair of cards is two cards of the 
same value and same color, such as a three of clubs plus a three 
of spades, or a king of hearts plus a king of diamonds. 

Next you are asked to enter the card you want. This should 
be a card that would make a pair with one of the cards in your hand. 
If you have a seven of spades, ask for a seven of clubs. To enter 
the card, press the number value (1-10) or face value (J, Q, K, A) 
of the card, then press the first letter of the suit (C, H, S, D). Press 
the Return key to record the entry. 

If the computer has the card in its hand, it will say so and place 
the card in your hand. If it does not have the card, you will fish. 
The first card from the deck will be placed in your hand. If you 
now have a pair of cards, you can enter them. If you do not have 
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a pair, just press the Return key and the computer will take its turn. 
The game continues until all the cards have been played. The player 
with the most pairs is the winner. 

The computer checks to see if you have both cards of any pair 
you enter. It also checks that the cards constitute a pair. Listing 
1-1 is the code for the program, and Fig. 1-1 is the flowchart. 

Line 50 sets aside the memory needed for strings and arrays. 
The C array will contain all 52 cards. These cards will be shuffled 
and used in the game. CARD$ contains the number or letter that 
appears on the card. SUITS contains the four suit characters. PLAY 
array and CMP array contain the cards in the hand of the player 
and the computer. B$ stores the entries —, Y, N, or the cards. The 
CP array stores the numeric value of the cards entered by the 
player. 

Line 60 PEEKs at location 106 to see how much memory is 
in the computer you are using. The computer moves the character 
set into RAM, so 2K must be subtracted from the amount of RAM 
available. This value is POKEd into location 204, and the first byte 
of the character set in ROM is stored in location 206. The actual 
decimal location of the ROM character set is stored in the variable 
CS. This location will be used to move the four graphics characters 
that represent the suits into RAM. 

Line 70 moves the assembly language subroutine into locations 
1536-1555; line 80 contains the decimal code for the routine. 

Line 90 changes the screen to graphics 17. This is graphics 1 
with no text window. The computer uses the USR command to ex¬ 
ecute the assembly language subroutine at memory location 1536. 
When the computer returns to this line, it will place the value of 
A into location 756. Now the computer is using the character set 
in RAM. The first byte of this character set is stored in the variable 
CHARSET. 

Line 100 uses two FOR-NEXT loops to move the four 
characters that represent the suits into RAM. When we use the 
large text, the computer can only use numbers and uppercase let¬ 
ters, or graphics and lowercase letters. We need to move the four 
graphics characters into locations in the character set in RAM in 
order to use them. The computer will replace the percent sign, the 
ampersand sign, the apostrophe, and the open parenthesis with the 
graphics characters for the four suits. The computer reads the 
number from line 110. This is the location of the graphics character 
in the character set. 

The computer uses the second FOR-NEXT loop to move each 
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Listing 1-1. Go Fish. 


10 REM GO FISH FOR ONE PLAYER AND THE 
COMPUTER 

20 REM CHAPTER 1 - CARD GAMES 

30 REM BY L.M.SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1984 

5 0 DIM C(52)» CARD*(13),SUIT * ( 4 ) ,PLAY(3 
0),CMP(30),B*<4> 

60 A-PEEK(106)-161POKE 204,AJCS=PEEK(7 

56).POKE 2 0 6,CS1CS=CS*256 

7 0 FOR X ; =:L536 TO 15551 READ V 1 POKE X,Vt 

NEXT X 1 REM MODE THE CHARACTER SET 

80 DATA 104,162,4,160,0,177,205,145,20 

3,200,208,249,230,206,230,204,202,208, 

242,96 

90 GRAPHICS 171O-USR(1536)1POKE 756,At 
CHARSET =A*2561REM SET UP THE CHARACTER 
S 

100 FOR CSET=CHARSET+40 TO CHARSET+64 
STEP 8 1 READ V1FOR X = 0 TO 75POKE CSET+X 
,PEEK < CS+V*8+X)!NEXT XJNEXT CSET 
110 DATA 64,80,96,123 

115 REM THE CHARACTERS FOR CARD* AND S 
UIT* ARE INVERSE 

120 CARD* : =" A234567891JQK" * SUIT$ = ' (" 

JREM PUT THE CARDS IN THE STRINGS 
130 POSITION 1,121? *6?"% « shuffling 
' ("1GOSUB 1 050 1 HS--0 1CS=0 
140 FOR X = 1 TO 10 1 IF X/2 = INT(X/2) THEN 
PLAY(X/2)=C(X)1 GOTO 160 
150 CMP(INT(X/2)+1)=C(X) 

160 NEXT X1CD=101LC=51CC=51AF=11GOSUB 
20 00 

170 C0 :: =31R=141C=13 IF'OSITION 0,141? #65 
"GO FIRST Y/N"1GOSUB 11001IF B* = " M THE 
N 170 

180 IF B*="N" THEN 450 
190 GOSUB 300 

200 GOSUB 2000 {POSITION 0,141? *6{'‘WHA 
T CARD "1C=121R=141C0=11GOSUB 11001IF 
B*«"" THEN 200 

210 FOR X=1 TO 131IF ASC<CARD*(X,X))-1 
28—ASC(B* <1»1>) THEN L=LEN(B*)1NC=X+(A 
SC (E'.* ( L , L ) )-36)/10 1GOTO 230 


3 




230 FOR X = 1 TO CC5IF CMP(X)ONC THEN N 
EXT X 5 GOTO 270 

240 POSITION 0,165? *65"i have it"5GOS 
UB 30 00 5 CMP ( X ) =CMF' ( CO ) 5 CC=CC-1 5 IF COO 
THEN GOSUB 60 0 5 IF CC = 0 THEN 80 0 
250 LC--LC+15 PLAY (I..C ) =NC 5 GOSUB 2000 
260 GOSUB 30 0 5 GOTO 450 
27 0 GOSUB 40 0 5GOSUB 2000 5GOTQ 260 


" J 5 R = 1.4 5 0=115CO=:L5GOSUB 1 1 0 0 5 IF B$ 
= "" THEN RETURN 

310 FOR X : =i TO 13 5 IF ASC (CARD* (X , X ) ) -1 
28=ASC(B$(1,1)) THEN L=LEN <B*)5 CP(1)=X 
+(ASC(B*(L,L))-36)/10 
315 NEXT X 

320 POSITION 6,15 5? #6 5"AND? "JR 


= 15 5 C=1 15C0=15 GOSUB 1 1 0 0 5 IF B$="" THEN 
320 

330 FOR X”1 TO 135IF ASC(CARD*(X,X))-1 
28=ASC<B$<1,1)) THEN L=LEN ( B$ ) 5 CP ( 2 ) = X 
+<ASC(B*(L,L))-36)/I0 
335 NEXT X 

34 0 IF INT (CP (1) ) OINT (CP ( 2) ) OR ABSCC 
P(1)-CP(2))<>0♦2 THEN 390 
350 FOR 0=1 TO LG 5 IF PLAY (Q)OCP < 1) TH 
EN NEXT 05GOTO 390 

360 FOR 0=1 TO LC5IF PLAY(O)<>CP(2) TH 
EN NEXT 0 5GOTO 390 

370 POSITION 0,17 5? 16 5"GOOD PAIR"5GOS 
UB 30 0 0 5 IF 0>Q THEN PLAY(O)=PLAY(LC ) 5L 
C=LC-15 PLAY(O)=PLAY(LC)5GOTO 380 
375 PLAY (Q ) =PLAY (L.C ) 5L.C=L.C-1 5PLAY(0)=P 
LAY < LC) 

380 LC=L.C~15 HS=HS+2 5 IF LC = 0 AND CD=52 
THEN 800 

383 IF LC= 0 THEN GOSUB 400 
385 RETURN 

390 POSITION 0,175? *65"NOT A PAIR"5GO 
SUB 330 0 5GOSUB 3200 5POSITION 0,17 5? *6 
5" "5GOTO 30 0 

40 0 IF CD=52 THEN POSITION 0,17 5? #6*," 
NO MORE CARDS'* 5GOSUB 3200 5RETURN 
410 POSITION 0,175? *65"FISHING "5CD= 
CD + :l 5LC=LC + 15PLAY (LC) =C(CD) 5POSITION 0 
,185? *6}"YOU FISHED A "5 


THEN 


EN NEXT 
360 FOR 


0 5 GOTO 
U=.L TO 


EN NEXT U 5GOTO 


420 CARD-C(CD) 5 X--6 ♦Y = :L8JZ~1 * GOSUE! 1000 

5 GOSIJB 3200 ’.RETURN 

450 GOSUE: 20 0 0 ’.IF AF>CC THEN AF = 1 

460 POSITION 0,14?? *65"i want a "{5N 

C=CMP(AF)-INI(CMP(AF)):iF NC*10/2=INT< 

NC*10/2 ) THEN NC = 0.6-NC5 GOTO 480 

470 NC = 0 .4-NC 

4S0 CARD=INT (CMP(AF) )+NC 5 X=5 5Y = 14 t GOSU 
E: 10Q05AF=AF+1 

490 POSITION 0,155? *6J"Fish or Have i 
t" J 5CO=45C=155R=155GOSUB 11005IF E:$="" 
THEN 490 

500 IF E:*="F" THEN GOSUE: 600 5GOTO 550 
510 FOR X = 1 TO LC:IF PLAY (X) OCARD THE 
N NEXT X: GOSUE: 590 :GOTO 550 
520 CC=CC+15CMP(CC)=PLAY(X> 

530 PLAY <X)=F'LAY (LC) 5LC=LC-1 5 IF LC=0 T 
HEN IF CD<52 THEN GOSUE: 400 5GOSUE: 2000 
5 REM DRAW A CARD FROM THE DECK 
540 IF LC=0 THEN 800 

55 0 FOR Q = 1 TO CC~i:FOR V=Q+1 TO CC’.IF 
INT (CMP(Q) ) =INT (CMF' ( V ) ) AND ABS(CMP(Q 
>-CMP(V>)=0.2 THEN 560 
555 NEXT V t NEXT O’. GOTO 580 
560 POSITION 0,155? *65" 

"5POSITION 0,135? *6J"i have a pair 
"5 5 CARD = CMP(0)5 X=7 5 Y = 13 5 Z=1 
570 GOSUE: 10 0 0 5 POSITION 0,14 5? *65" 

and " 5 5Y = 145CARD=CMF'(V) 5GOSUE: 1 
0 0 0 5GOSUE: 3000 5CS=CS+2 

575 CMP ( V ) =CMF' < CC ) 5 CC=CC-1 5 CMP (Q ) =CMF‘ ( 
CC ) 5 CC=CC-15 IF CCOO THEN 20 0 

577 GOSUE: 600 5IF CCOO THEN 200 

578 GOTO 800 

580 POSITION 0,135? #6’,"no pair "5G 

OSUE: 330 0 5 GOSUE: 3200’.GOTO 200 

590 POSITION 0,135? #65"i Must fish" 

600 IF CD=52 THEN POSITION 0,135? *65" 

NO CARDS LEFT" 5GOSUE: 320 0’.RETURN 

610 CC=CC+15CD=CD+15CMP(CC)=C(CD)5RETU 

RN 5REM GET A CARD 

790 REM HUMAN IS INVERSE 

80 0 POSITION 0,05? *65 CHRt(125)5 POSIT! 

ON 5,15 5? *65"WINNER IS —"5 IF HS>CS T 

HEN POSITION 6,17 5? 16 5"HUMAN" 

810 IF CS>HS THEN POSITION 4,175? #65" 
coMputer" 



815 REM tie IS LOWER CASE INVERSE 
820 IF CS=H5 THEN POSITION 8,17J? #6;" 
tie"*REM lower case inverse 
830 IF PEEK <53279)06 THEN 880 
8-10 RUN 

1 0 00 CV=INT(CARD)5S-(CARD-CV)*101IF CV 
= 10 AND X~Z>1 THEN POSITION <X-Z)*3-1, 
Y 

10 05 IF S = 1 OR S : =3 THEN 1020 

1010 '? 16 JCARD$ (CV,CV){ 5 IF CV==10 THEN 

? *6;"0"?:rem zero is inverse 
iois ? *6 ;suit*< s,s ):return 

1020 A==A8C(CARD*(CV,CV))5IF A<190 THEN 
? *6 >CHR*<A-32)}’IF CV=10 THEN ? *6}C 
HR* (144) ? 

1025 IF A>190 THEN ? #6 } CHR*<A+32)} 

1 030 A-ASC (SUIT * < S , S ) ) 5 ? =16{ CHR* ( A-32 ) 
I RETURN 

1 050 Q==0 5 FOR V=0 ,1 TO 0.4 STEP 0.1*. FOR 
X = :L TO 13:C(X+Q)=X+VJNEXT X:0==Q+13JNE 
XT V 

1 0 60 FOR X=1 TO 5JF0R Q==52 TO 1 STEP - 
1J V=INT< RND(1)*0)♦REM PICK A CARD 

1070 c<o)=c<v) ;c(V)=c<Q) :c<Q)==c< o) :rem 

MOVE THE CARDS 

1 080 NEXT a:NEXT X5RETURN {REM DO IT 5 
TIMES 

110 0 B=1{ B*==" " 5 OPEN #2 > 4,0 »"K{"{ GOSUE! 
3400 

1110 GET #2, K 5 IF K=155 THEN CLOSE *2*.R 
ETURN 

1120 IF K>127 THEN K=K-12StP0KE 694,0: 

REM RESET INVERSE FLAG 

1130 IF K==126 AND C0<3 THEN B*==" 

B*=="" {B==l {POSITION C+B,R{? #6}" M {C 
O-l { GOTO 1110 

1140 IF K>95 THEN K=K-965 POKE 702,64{R 
EM SET FOR UPPERCASE 

115 0 IF CO=3 THEN IF l<==78 OR K=89 THEN 
120 0 

1160 IF CO==l THEN IF <K>47 AND K<58) O 
R K==65 OR K==74 OR K==75 OR K=81 THEN 12 
00 

1170 IF CO=2 AND B<4 THEN IF K=67 OR K 
=68 OR K=72 OR K=83 THEN 1230 
1180 IF C0==4 THEN IF K=70 OR K==72 THEN 
1200 
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1190 GOTO 1110 

120 0 POSITION C+E:, R 5 ? *6 J CHR* ( K) J B$ ( E: , 
B)=CHR*(K>:IF CO>2 THEN CLOSE *2JRETUR 
N 

1210 B=B+1 ♦ IF CO-=l THEN C0=2:iF K=49 T 

HEN CO==l 

1220 GOTO 1110 

1230 IF K=67 THEN K=38 

1240 IF K : =68 THEN K = 39 

1250 IF K=72 THEN K=37 

126 0 IF 10=83 THEN K = 4Q 

1270 GOTO 1200 

2000 POSITION 0,05? *6 t CHR$(125) i Y=1JZ 
= 1:F0R X = 1 TO LC f CARD : =F'LAY < X) ♦ POSITION 
<X--Z)*3,Y 

2010 GOSUE: 1 000 MF X/7=INT(X/7) THEN Y 
= Y + 2:Z;=Z + 7 
2020 NEXT X 

2030 POSITION 0,21J? #6 } "HUMAN"♦POSITI 
ON 3,221? *6 JHS 

20^0 POSITION 11,21J? #6J" comp uter":PO 

SITION 15,22:? *6;cs:RETURN 

3000 FOR ZZ=1 TO 10JT-INT(RND(1)*150)+ 

5o :sound o, t, io,io :for ti=i to io:next 
ti :NEXT zz: SOUND 0,0,0,0 
3200 FOR TI=1 TO 50 0 5NEXT Ti:RETURN 
3300 FOR ZZ=1 TO 2 J SOUND 0,200,1 0 , 1 0 JF 

or t i-i to io :next ti:sound o,o,o,o:fo 
r Ti-i to 5:next ti:next zz:return 

3400 FOR ZZ : =1 TO 2:S0UND 0,2 0 , 1 0,1 0 5 FO 
R TI~1 TO 10 5 NEXT TI5 SOUND 0,0,0,0:FOR 

Ti-i to s:next ti:next zz:return 


of the eight bytes that make up a character from ROM and place 
it into RAM. The computer finds each byte of the character by 
multiplying the value of V by eight and adding the value of X and 
CS. The value of X will increase from zero to seven in the loop. 
The other variables will remain the same. The value found is placed 
into the RAM location. Because the value of X increases, each of 
the eight bytes will be moved in the correct order and stored in 
the correct location of RAM. The loop continues until all four 
characters have been moved. 

Line 110 contains the ATASCII value of each of the four 
characters. This is the character’s position in the character set. 
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Fig. 1-1. Flowchart for Go Fish. (Continued through page 10.) 
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Line 120 places the numeric values or letter descriptions of the 
cards in CARDS. The four characters that have been changed to 
represent the four suits are placed in SUIT$. 

Line 130 prints a message on the screen; be sure to include 
the four characters. The computer goes to the subroutine at line 
1050 to shuffle the cards. The variables HS and CS are set to zero, 
the score for both players. 

Lines 140-160 deal the cards. The first card is dealt to the com¬ 
puter, the second to the player, and so on. The computer divides 
the variable X by two to find out who gets the card. If the variable 
is even, the player gets the card; if it is odd, the computer gets it. 
After 10 cards have been dealt, the variable CD is set to 10. this 
variable keeps track of how many cards have been dealt. The 
variables LC and CC are set to 5, the number of cards in each hand. 
The variable AF is set to 1, and the computer goes to the subroutine 
in line 2000. This subroutine clears the screen and places the 
player’s cards and the scores on the screen. 

Line 170 sets the variable CO to 3. This is a code for the 
subroutine at line 1100. By using a code variable, the computer will 
know what letters or numbers are acceptable for the input routine. 
The variable R is set to 14 and C is set to 13. This is the row and 
column where the entry will be printed. A question is printed on 
the screen and the computer uses the subroutine at line 1100 to 
receive the input. If there is no input, B$ will be empty and the 
line will repeat. 

Line 180 sends the computer to line 450 when the entry is N. 
The computer goes first. 

Line 190 uses the subroutine at line 300 to find out if the player 
has a pair. When you ask to go first, you will be given an oppor¬ 
tunity to play a pair of cards before asking for a card. This occurs 
only on the first turn. If the computer goes first, it also may play 
a pair of cards before asking for one. 

Line 200 begins the player’s turn. The computer uses the 
subroutine in line 2000 to place the player’s cards on the screen 
and asks for a card to be entered (the card you want from the com¬ 
puter to complete a pair). The row and column variables are set 
and the code variable is set to 1. The computer uses the subroutine 
in line 1100 to receive an entry. If no card is entered, the line repeats 
until a card is asked for. 

Lines 210-220 look at the values of the cards in CARDS and 
compare them to the value of the card entered. When a match is 
found, the computer determines the suit of the card the player wants 
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by subtracting 36 from the ATASCII value of the character. This 
value is divided by 10 because the suit is the decimal value of the 
card. The value of the card is stored in the variable NC. The com¬ 
puter is then sent to line 230. 

Line 230 looks at all the cards in the computer’s hand to see 
if it can find one that matches the card the player requested. If no 
match is found, the computer goes to line 270 to fish. 

Line 240 tells the player that the computer has the card. The 
computer uses the subroutine in line 3000 to make a sound, then 
removes the card from the computer’s hand by placing the last card 
in the computer’s hand into this card’s position. The variable that 
keeps track of number of cards in the computer’s hand is decreased 
by one. When this value reaches zero, the computer takes another 
card from the deck. If there are no more cards, the computer goes 
to line 800 to end the game. 

Line 250 adds 1 to the value of LC. This is the number of cards 
in the player's hand. The new card is placed into the last position 
of the player’s hand. The computer uses the subroutine at line 2000 
to display the entire hand with the new card on the screen. 

Line 260 sends the computer to the subroutine at line 300 to 
get a pair of cards. After the computer returns, the computer is 
sent to line 450 for its turn. 

Line 270 is used when the computer does not have the card 
the player requested. The computer uses the subroutine at line 400 
to take the next card from the deck, and the subroutine from line 
2000 to display the new hand on the screen. The computer then 
goes to line 260 to find out if the player now has a pair of cards. 

Lines 300-390 contain the subroutine that fetches the pair of 
cards from the player. The computer asks for the first card of the 
pair. The values for the row and column are set, as well as the code 
for the type of input. The computer uses the subroutine in line 1100 
to get the entry. If no card is entered, the computer is sent back 
to the line it came from; the player has no pair. 

Lines 310-315 check the card entered against the card values 
to convert the entry into a one-digit card value. 

Line 320 asks for the second card of the pair. This time the 
line will repeat if no card is entered, and lines 330-335 again con¬ 
vert the card entered into a one-digit card value. 

Line 340 checks the two cards against each other. The number 
or value of both cards must be the same, and the difference be¬ 
tween the two cards must be two-tenths. If either of these condi¬ 
tions are not met, the computer goes to line 390 and tells the player 
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that this is not a pair. 

Lines 350-360 check both cards against every card in the 
player’s hand. The computer knows that a pair was entered; now 
it must verify that the player has both cards. If either card is not 
in the hand, the computer goes to line 390 and tells the player this 
is not a good pair. 

Lines 370-385 tell the player the pair was acceptable and pro¬ 
ceeds to remove both cards from the player’s hand. The last card 
in the hand must be removed before the first in order for the 
removal to be accomplished correctly. The number of cards in the 
player’s hand are decreased by one each time a card is removed. 
The score variable is increased by two, and the computer checks 
to see if there are cards in the player’s hand. If there are none and 
all 52 cards have been dealt, the computer goes to line 800 to end 
the game. If cards are left in the deck but the player has no cards, 
the computer goes to the subroutine in line 400 to get another card. 
The computer then returns to the main program. 

Line 390 tells the player that the two cards entered cannot be 
used as a pair because they are not a pair, or one or both cards 
are not in the player’s hand. The computer uses the subroutine at 
line 3300 to make a sound and erases the first card entered. The 
computer goes back to line 300 for another entry. 

Line 400 begins the finishing subroutine. This routine is used 
when the player runs out of cards. The variable CD is checked; 
if it is 52, all the cards have been dealt. The computer displays a 
message, makes a sound, and returns to the main program. 

Line 410 tells the player a card is being taken from the deck. 
The variable CD is increased by one, as is the variable that counts 
the number of cards in the player’s hand; the next card is moved 
to the player’s hand. The computer tells the player what card was 
placed in his hand. 

Line 420 places the decimal value of the card in the variable 
CARD, and uses the subroutine at line 1000 to print the card on 
the screen. The computer returns to the main program. 

Line 450 begins the computer’s turn. The screen is updated 
and the variable AF is compared to the number of cards in the com¬ 
puter’s hand. If the variable is greater than the number of cards, 
the variable is reset to one. This variable points to the card the com¬ 
puter will try to pair. 

Line 460 asks the player for a card. The suit value of the card 
the computer wants to pair is placed in the variable NC. If the dec¬ 
imal value is even, the computer subtracts this value from six- 


13 



tenths. If it is odd, the value is subtracted from four- tenths. This 
gives the decimal value of the opposite suit. 

Line 480 takes the card value and adds it to the decimal value 
and places it into CARD, so the computer will recognize what card 
it needs. The subroutine at line 1000 displays this card on the 
screen. The variable AF is increased by one. On the next turn, the 
computer will ask for the next card in its hand. 

Line 490 asks the player to enter F or H. F tells the computer 
to fish, or take the next card from the deck. H means the card is 
in the player’s hand. The variables for the row, column, and code 
are set. The computer uses the subroutine at line 1100 to get the 
entry. If no letter was entered, the computer loops at this line. 

Line 500 checks the letter in B$. If it is F, the computer goes 
to the subroutine at line 600 to get a card. The computer then goes 
to line 550 to see if it has a pair. 

Line 510 checks every card in the player’s hand for the card 
the computer requested. The computer uses this line when H is 
entered. If the card is not in the player’s hand, the computer will 
tell the player it must fish and use the subroutine at line 600 to 
fish a card from the deck. 

Line 520 increases the variable that counts the number of cards 
in the computer’s hand and places the card into the last position 
of the computer’s hand. 

Line 530 removes the card from the player’s hand by taking 
the card in the last position and placing it into the position of the 
card taken by the computer. The variable that counts the number 
of cards in the player’s hand is decreased by one. If the player has 
no cards and there are cards in the deck, the computer will place 
the next card into the player’s hand and go to line 550 to continue 
the game. 

Line 540 checks the value of LC again. If it is still zero, the 
computer is sent to line 800 to end the game. 

Lines 550-559 take every card in the computer’s hand and com¬ 
pare them with every following card to see if the computer has a 
pair. If there is no pair, the computer goes to line 580 to continue 
the game. 

Line 560 announces to the player that the computer has a pair. 
The first card value is placed into CARD. 

Line 570 uses the subroutine at line 1000 to print the card on 
the screen. The second card value is placed into CARD and the 
same routine prints the second card on the screen. The subroutine 
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at line 3000 makes a sound and the computer’s score is increased 
by two. 

Line 575 removes both cards from the computer’s hand. If there 
are cards in the computer’s hand, the game continues at line 200 
and the player takes a turn. 

Line 577 uses the subroutine at line 600 to take the next card. 
If it takes a card, the computer goes to line 200. 

Line 578 sends the computer to line 800 to end the game. 

Line 580 tells the player that the computer does not have a pair 
in its hand. The computer makes a sound, then goes to line 200 
for the player’s next turn. 

Line 590 tells the player that the computer must fish. This line 
is used when the player responded to the computer’s request for 
a card positively, but the card wasn’t in the player’s hand. 

Line 600 is the fishing routine. If the variable CD is equal to 
52, there are no cards left, and the computer returns to the main 
program. 

Line 610 increases the variable CC by one. This variable keeps 
track of how many cards are in the computer’s hand. The variable 
CD is also increased by one. This is the number of cards that have 
been removed from the deck. The next card is moved from the deck 
to the computer’s hand and the computer returns to the main 
program. 

Line 800 ends the program. The screen clears and the win¬ 
ning player is named. If the value of HS is greater than CS, the 
player won and this message is printed on the screen. Line 810 
prints that the computer won if its score is higher. 

Line 820 states that the game was a tie if both scores are the 
same. 

Line 830 loops until the Start key is pressed. 

Line 840 runs the program again. To quit the game, press the 
System Reset key. 

Lines 1000-1030 print the card on the screen. The value of the 
card is stored as a single number. The suit of the card is a decimal 
value. The value of the card must be stored in the variable CARD 
before the computer uses this subroutine. The integer value of the 
card is stored in the variable CV; the decimal value is stored in the 
variable S. This value identifies the suit of the card. The variables 
X and Y are the column and row positions where the card will be 
printed. The Z value is subtracted from X to move the card one 
position to the left as long as the variable X is not set to one. To 
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keep the cards evenly spaced on the screen, the value of X or X - Z 
is multiplied by three. 

Line 1005 sends the computer to line 1020 if the value of S is 
one or three. The spades are printed in dark blue, the hearts in red. 

Line 1010 prints the value of the card on the screen. If it is 
10, the zero is also printed. 

Line 1015 prints the character for the suit on the screen and 
returns to the main program. 

Line 1020 takes the ASCII value of the card that should be 
printed. When the card is printed, 32 is subtracted from it so it can 
be printed in red. If its value is 10 the zero is printed. 

Line 1025 adds 32 to the value of A if it is greater than 190. 
These are the face cards or letter values. 

Line 1030 prints the suit character on the screen. This value 
also has 32 subtracted from it. 

Line 1050 places the cards into the C array. Each card is given 
a value from one to 13 and a suit value from 0.1 to 0.4. The FOR- 
NEXT loops place these values into the C array. The first loop steps 
from 0.1 to 0.4. The loop steps by 0.1. The second loop counts from 
1-13. The variable Q keeps track of where in the array the cards 
are to be placed. The values of X and V are added together to get 
the card value; this card is placed in the array at the location of 
X plus Q. The first time this loop is executed, the value of Q is 
zero. Each time the loop is completed, 13 is added to the value of 
Q. This way, all 52 elements of the array contain a card when the 
loop is finished. 

Lines 1060-1080 shuffle the cards. The cards are shuffled five 
times. Each time, the computer takes the card from the bottom of 
the deck and places it into a random position in the deck. The card 
that was replaced is moved into a temporary storage element. The 
last card is moved into its position, then this card is moved into 
the last position. The FOR-NEXT loop counts from 52 to one. The 
variable Q always points to the last position, so once a card is moved 
into the last position, the position just before it becomes the last 
position. This way all the cards in the deck are moved at least once. 
The loops continue until the deck has been shuffled five times. 

Lines 1100-1270 contain the input routine. There are actually 
three routines within these lines. The position of the letter in the 
string is pointed to by the variable B. It is set to one for the first 
letter. B$ is set to an empty string. The keyboard is opened, and 
the computer uses the subroutine in line 3400 to make a sound. 
The value of the key that has been pressed is stored in the variable 
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K. If its value is 155 the Return key has been pressed and the com¬ 
puter returns to the main program. 

Line 1120 checks to see if the value of K is greater than 127. 
If it is, the inverse key has been pressed, the variable K is decreased 
by 128, and location 694 is cleared for normal video. 

Line 1130 checks to see if the delete key has been pressed. If 
it has, the entire contents of B$ is erased, the variable B is reset 
to one, and the entry on the screen is erased. The code is reset 
to one and the computer goes to line 1110 for another input. 

Line 1140 checks the value of K to see if it is greater than 95. 
If it is, the caps key has been pressed and this letter is in lower¬ 
case. To reset the letter to uppercase, 96 is subtracted from the 
value of K and the location 702 is POKEd with 64. 

Line 1150 checks the value of CO. This is the code that tells 
the computer what kind of entry it should look for. If the code is 
three, the computer should accept only the letters Y and N. If ei¬ 
ther of these keys were pressed, the computer goes to line 1200. 

Line 1160 is used when the CO is 1. The computer will accept 
any number of the letters A, K, J, or Q. This is the first entry for 
a card. If any of these keys have been pressed and the computer 
wants a card value, the computer will go to line 1200. 

Line 1170 is used when the value of CO is 2 and there are less 
than four characters in the string. One of the suit keys (H, C, D, 
S) must be pressed before the computer an go to line 1230. 

Line 1180 will accept the F or H keys if the value of CO is 4. 

Line 1190 sends the computer to line 1110. The correct key 
for the code was not entered. 

Line 1200 prints the key that has been pressed on the screen. 
The character is placed into B$. If the value of CO is greater than 
two, the computer was looking for a one-keystroke entry. This is 
used for the yes/no questions and the fish question. The keyboard 
is closed and the computer returns to the main program. 

Line 1210 increases the value of B by one so it can point to 
the next position in the string. If the value of CO is one, it will be 
changed to 2. Now the computer will look for the suit key. How¬ 
ever, if the value of K is a 1, then the next key should be a 0 and 
the value of CO is reset to 1. 

Line 1220 sends the computer back to line 1110 to get another 
entry. 

Lines 1230-1260 change the value of the key that has been 
pressed. The first letter of the suit is used for the entry of a par¬ 
ticular suit, but these characters have not been changed in the 
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character set. In order to print the correct suit character on the 
screen, the value of K must be changed to the correct suit character. 

Line 1270 sends the computer to line 1200 to print the suit 
character. 

Lines 2000-2040 update the screen. The screen is cleared, then 
each card in the player’s hand is placed into the variable CARD. 
The computer calculates the position of the next card on the screen 
and uses the subroutine in line 1000 to print the card on the screen. 
Every time seven cards are printed on the screen, the variable Y 
is increased by 2 to start a new row. The variable Z is increased 
by 7 for the new offset. The loop continues until all the player’s 
cards are printed on the screen. The scores for the player and the 
computer are printed near the bottom of the screen. Then the com¬ 
puter returns to the main program. Lines 3000-3400 are various 
sound routines and timing routines that are used throughout the 
program. 

OLD MAID 

Objective of the game: To get rid of all the cards and not 
be left holding the last card. 

Directions: There are 49 cards in the deck; all the cards are 
dealt. You have 24, and the computer has 25. You are asked if you 
would like to go first. If you do, enter Y; otherwise enter N. You 
are asked if you have a pair. If you do, enter the two cards. A pair 
is two cards of the same value and the same color, either a heart 
and a diamond or a club and a spade. If you don’t have a pair, press 
the Return key. You will be told how many cards the computer has. 
Pick one of these cards and it will be placed in your hand. The game 
alternates between you and computer until someone runs out of 
cards. The first player to run out of cards wins. Figure 1-2 is the 
flowchart for this and Listing 1-2 contains the code. 

Line 50 sets aside memory for strings and arrays. The C array 
contains the cards. CARD$ contains the value of the cards and 
SUIT$ the characters that represent the four suits. The arrays 
PLAY and CMP will contain the cards in the player’s and com¬ 
puter’s hands. B$ will contain the information entered and CP is 
the temporary storage area for the entered cards. 

Line 60 finds out how much memory is in the computer by 
PEEKing at location 106. The character set will be moved to the 
area just before the screen, 2K from the end of memory. This value 
and the beginning byte of the ROM-based character set are POKEd 
into locations 204 and 206. The decimal address for the first byte 
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of the ROM-based character set is stored in the variable CS. 

Line 70 reads the code for the assembly language subroutine 
and places it in memory locations 1536-1555. This assembly 
language subroutine will move the character set located in ROM 
into RAM. 

Line 80 contains the decimal values of the assembly language 
subroutine that moves the character set. 

Line 90 changes the screen to graphics 17, the large colored 
letters with no text window. The computer uses the USR command 
to execute the assembly language subroutine that begins in mem¬ 
ory location 1536. When the computer returns to this line, it will 
change the character set to the one in RAM by POKEing location 
756 with the value of A. The first byte of this character set is stored 
in the variable CHARSET. 

Line 100 moves the graphic characters that depict the four suits 
from ROM into RAM. Since the computer can only display numbers 
and uppercase letters, or graphic characters and lowercase letters, 
it is necessary to move the suit characters into the locations nor¬ 
mally occupied by the percent sign, the ampersand, the apostrophe, 
and the open parenthesis. To move these characters, the computer 
reads the location of the character in the character set. To figure 
out where the first byte is located, the computer multiplies this 
number by 8, then adds the first byte of the character set and the 
value of X. X will increment through this loop so that all eight bytes 
of the character can be transferred. This loop continues until all 
four characters are moved. 

Line 110 contains the position of the four characters in the 
character set. 

Line 120 places the values of the cards in CARDS and the four 
suits in SUITS. 

Line 130 places a message on the screen so you will know the 
computer is working and not caught in an endless loop. The com¬ 
puter uses the subroutine at line 1050 to place the cards in the C 
array and to shuffle them. When the computer returns to this line, 
the variable CD is set to one. This is the variable that points to 
the next card to be dealt. The screen is also cleared. 

Lines 140-160 deal the cards into two hands: the player’s and 
the computer’s . The number of cards the player and the computer 
were dealt are placed into variables LC and CC. The player is dealt 
24 cards and the computer 25. The subroutine at line 2000 places 
the player’s cards on the screen. 

Line 170 asks the player if he wants to go first. The variables 
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Fig. 1-2. Flowchart for Old Maid. 
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Listing 1-2. Old Maid. 


10 REM OLD MAID FOR ONE PLAYER AND COM 
PUTER 

20 REM CHAPTER 1 - CARD GAMES 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1984 

50 DIM C(52),CARD*(13),SUIT * ( 4 ) ,PLAY(3 
0) , CMP (26) f B*(3),CP(2) 

A0 A=F'EEK (106)-16 5 POKE 204 , A 5 CS=PEEK (7 

56)5 POKE 206,CS 5 CS=CS*256 

7 0 FOR X = :L536 TO 1555 5 READ U 5 POKE X,V5 

NEXT X 5 REM MODE THE CHARACTER SET 

80 DATA 104,162,4,160,0,177,205,145,20 

3,200,208,249,230,206,230,204,202,208, 

242,96 

90 GRAPHICS 17 5 Q--USR < 1536 ) 5 POKE 756,A5 
CHARSET=A*256 5 REM SET UP THE CHARACTER 

S 

100 FOR CSET—CHARSET+40 TO CHARSET+64 
STEP 85 READ V 5 FOR X = 0 TO 75 POKE CSET + X 
,PEEK<CS + U*8 + X)5 NEXT X 5 NEXT CSET 
110 DATA 64,80,96,123 

115 REM CHARACTERS IN CARD* AND SUIT* 
ARE INVERSE 

120 CARD* -"A234567891JQK"5 SUIT* = "%&' < " 
5REM PUT THE CARDS IN THE STRINGS 
130 POSITION 1,125? 465"% & shuffling 
' ("5GOSUE: 1050 5 CD= 15 POSITION 0,05? *6 
? C H R *(12 5) 

140 FOR X=1 TO 495 IF X/2=INT(X/2) THEN 
F’LAY (X/2)=C (X ) 5 GOTO 160 
150 CMP(INT(X/2)+l)=C(X) 

160 NEXT X 5LC=24 5CC=25 5 GOSUB 20 0 0 
170 POSITION 0,105? #6}"DO YOU WANT TO 
GO FIRST Y/N?"5CS=35R=115C1=12!GO 

SUB 1 100 5IF B$="" THEN 17 0 
180 IF B* ; ="N" THEN 40 0 5 REM COMPUTER GO 
ES FIRST 

190 POSITION 0,105? *65" 

"5 CP <1) = 0 5 CP 

< 2)=0 5 REM 40 BLANKS FOR 2 ROWS 
20 0 POSITION 0,10 5? 46 5"FIRST CARD IS 
- ,, ;cs==i;r=io:ci=145Gosub 110051 F b*= ,,m 
THEN 370 

210 FOR X = :L TO 13 5 IF ASC (CARD* (X , X ) )-1 
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28 : =ASC (B$(1,1) ) THEN L=L.EN(B*> JCP< 1 )=X 
+ (ASC (13$ (L > L ) )-36)/10:GOTG 23 0 
220 NEXT X 

230 POSITION -A , 1 :L «? #6}"NEXT CARD -"JC 
S=1:R=11 JC1=145G0SUB llOOJIF B$ = "" THE 
N 23 0 

240 FOR X = :L TO 13MF ABC < CARD$ (X , X ) )-1 
28=ASC(B*<1 ,1 ) ) THEN L.. =LEN (B* ) J CP ( 2 ) =X 
+ (ASC(B$(L » L))~36)/10JGOTO 26 0 
250 NEXT X 

26 0 IF INK CP(1)JOINT <CP<2)) OR ABS(C 
P< :l)“CP<2> ><>0.2 THEN 34 0 

27 0 FOR X== :L TO I..CJIF CP (1) OPLAY (X ) TH 
EN NEXT XJCARD=CP(1)JGOTO 320 

280 PLAY < X ) ~ 0 5 GO SUE: 3020JFOR X = 1 TO L.C 
JIF CP (2)OPLAY (X) THEN NEXT XJCARD=CP 
(2) JGOTO 32 0 
290 PLAY (X) ~0 J GOSUE: 550 

30 0 IF LOO THEN GOSUB 200 0 JGOTO 400 JR 
EM COMPUTERS TURN 

310 ? *6}CHR$(125)JGOTO 600JREM END OF 
GAME 

320 GOSUE: 30 0 0 J POSITION 0,14J? *6J"NOT 
FOUND " J 5 Z~:L J X : =5 J Y : =14 J GOSUB 3010 5GOSU 
B 10 0 0 

330 GOSUB 40 0 0 5 POSITION 0,14}? *6{" 

"J TRAP 4000 0 JGOTO 190 
340 GOSUB 3000JPOSITION 0,14J? *6}"NOT 
A MATCH"JGOTO 330 

370 IF LC=30 THEN 20 0 J REM MUST HAVE A 
PAIR 

38 0 POSITION 0,14 J? *6}"i have "JCCJ" 
cards"}? *6J"PICK ONE" J CS=4 J R = :L5 J Cl = l 0 
JGOSUB llOOJIF B$ = "" THEN 380 

385 B=VAL(B$)JIF B>CC THEN 380 

39 0 LC=LC+1 JF’LAY (LC)=CMP(B) JCMP(B)=CMP 
(CC)JCMP<CC)=0JCC=CC-1JIF CC=0 THEN 60 
0 

395 GOSUB 2000 

400 FOR Q=1 TO CC-1JFOR V=G + 1 TO CCJIF 
INT(CMP(Q) JOINT <CMF'(V) ) THEN NEXT V J 
GOTO 47 0 J REM CARDS DON'T MATCH 
410 IF ABS ( CMP ( Q ) --CMP < V J J <>0<2 THEN NE 
XT VJGOTO 470!REM SUITS DON'T MATCH 
420 POSITION 0,145? 46}"I HADE A MATCH 
" J {X : =6 J Z = 1 J Y : =14 J CARD=CMP < O ) 5 GOSUB 1 0 0 



05POSITION 11,155? #6}"AND "5 

430 X=6 5Y = 15 5CARD=CMF'(V) 5GOSUB 1 0 0 0 5 GO 

SIJB 30205GOSUB 3100 5 CMP<G) = 05 CMP<V) = 05 

IF CC=2 THEN CC=05GOTO 60 0 

440 FOR X=1 TO CC-15IF CMF'(X) = 0 THEN F 

OR Y=X+1 TO CC5CMP(Y-1)=CMP(Y)5NEXT Y5 

CC=CC-15GOTO ^^0 

450 NEXT X5IF CMP(X) = 0 THEN CC=CC-1 
460 GOSUB 2000 5 GOTO 190 
47 0 NEXT Q 

500 GOSUB 3010{POSITION 0,145? #65"i n 
ust pick froM you *"5 C1=INT < RND <1)*LC) + 
1 

510 POSITION 0,155? *65"i picked a "55 
Z = :L 5 X=4 5 Y = 15 5 CARD=PLAY (Cl)5 GOSUB 1 000 5 
GOSUB 3100 

520 CC = CC + :L 5 CMP ( CC ) =CARD 5 PLAY ( Cl ) -PLAY 
(LC)5LC-LC-l5 IF LC = 0 THEN 600 
530 GOTO 460 

550 IF LC = 2 AND PLAY<1) = 0 AND F'LAY<2) = 
0 THEN LC = 0 5 RETURN 

560 FOR X = 1 TO LC-15IF PLAY(X)=0 THEN 
FOR Y=X+'l TO LC 5 PLAY (Y-l) =F'LAY (Y ) 5 NEXT 
Y 5LC = LC-15GOTO '560 

570 NEXT X 5 IF F'LAY(X) = 0 THEN L.C=LC-1 
580 RETURN 

600 POSITION 0,0 5? *6 5 CHR$ (125) 5 F'OSITI 

ON 1,105? *6 5"THE WINNER IS-" 

610 IF CC=0 THEN ? *6}" the conpute 
r"5 GOTO 63 0 

620 ? *6}" THE. HUMAN" 

630 GOSUB 40 0 0 5RUN 

1 0 00 CV=INT(CARD)5S=(CARD-CV)*10 5IF CV 
=10 AND X-Z>1 THEN POSITION (X-Z)*3-l, 
Y 

1005 IF S=1 OR S=3 THEN 1020 

1010 ? *6 5 CARD'* (CV,CV) } 5 IF CV = 10 THEN 

? *65"0";;rem zero is inverse 

1015 ? *6}SUIT $(S,S)5 RETURN 
1020 A : =ASC ( CARD$ (CV , CV ) ) 5 IF A<190 THEN 
? *6 5 CHR$(A~32) 5 5 IF CV=10 THEN ? #6JC 
HR4C144) 5 

1025 IF A>190 THEN ? *65CHR$(A+32)} 

10 30 A=ASC (SUIT $<S,S) ) 5? *6 5 CHR* ( A-32 ) 
5 RETURN 

1050 Q=0 5 FOR V=0.1 TO 0.4 STEP 0.15FOR 
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x =i to 13JC<x+g)=x+djnext x:g=g+i3;ne 
xt v 

10 60 C(26)=C(50)J REM GET RID OF ONE QU 
EEN & TWO KINGS 

1 070 FOR X = :L TO 5 5 FOR 0=49 TO 1 STEP - 
1JV<INT<RND<1)*G)JREM PICK A CARD 
1080 C<0)=C(V)5 C < V )=C(Q):C(Q)=C(0)JREM 
MODE THE CARDS 

1090 NEXT QJ NEXT XJRETURN JREM DO IT 5 
TIMES 

1100 B= 1J 13$ = " " J OPEN =>2,4,0 , "K J " 

1110 GET 12 , K 5 IF K=155 THEN 1220 

1120 IF K>127 THEN K=K-128JPOKE 694,0 J 

REM RESET INVERSE FLAG 

1130 IF K = 126 AND B>1 THEN B = 1JB$ = " 

" J13$:="" ; POSITION C1+B,RJ? :|6J“ "5CS= 

1J GOTO 1110 

1140 IF K>95 THEN K=K~96 5 POKE 702,645R 
EM SET FOR UPPERCASE 

1150 IF CS=1 AND B<4 THEN IF <K>47 AND 
K<58) OR K=65 OR K=74 OR K=75 OR K=81 
THEN 1200 

1160 IF CS=2 AND B<4 THEN IF K=67 OR K 
=68 OR K=72 OR K=83 THEN 1230 
1170 IF CS=3 AND B<4 THEN IF K=89 OR K 
= 78 THEN CS=0 J GOTO 1200 
1180 IF CS=4 AND B<3 THEN IF (K>47 AND 
K<58) THEN 1200 
1190 GOTO 1110 

120 0 E:$ <B, B) =CHR$ < K) 5 POSITION C1 + B,RJ? 
*6;CHR$(K)JB=B+1JIF CS=1 THEN CS=2JIF 
B = 2 AND K = 49 THEN CS=1 
1210 IF CSOO THEN 1110 
1220 CLOSE #2JRETURN 
1230 IF K=67 THEN K=38 
1240 IF K=68 THEN K=39 
125 0 IF K = 72 THEN K = 37 
1260 IF K=83 THEN K=40 
1270 GOTO 1200 

2000 POSITION 0,05? *6JCHR*(125)JY=1JZ 
= 1J FOR X = 1 TO LC J CARD=F‘L AY ( X ) J POSITION 
CX-Z)*3,Y 

2010 GOSUB 100 0 5IF X/7=INT(X/7) THEN Y 
=Y+2J Z=Z+7 
2020 NEXT X 

2030 POSITION 0,205? *6J"HUMAN"JPOSITI 



ON 2,21:? *65LCJPOSITION 10,201? *6J"c 
ompL iter" 1POSITION 14,211? *6 ICC 
2 0'10 RETURN 

30 0 0 SOUND 0,50,10,10’.FOR TI=1 TO 50 IN 

EXT TI1 SOUND 0,0,0,01 RETURN 

3010 SOUND 0,200 , 10,10 IFOR TI=1 TO 10 1 

NEXT Til SOUND 0,0 , 0,01 RETURN 

3020 FOR ZZ = 10 TO 200 STEP 101SOUND 0, 

ZZ,10,10 IFOR TI = 1 TO 10 1NEXT Til NEXT Z 

Z!SOUND 0,0,0,01 RETURN 

310 0 FOR TI=1 TO 50 0 1 NEXT Til RETURN 

40 0 0 IF PEEK (53279)06 THEN 40 0 0 

4010 RETURN 


CS, R, and Cl are set. The variable CS indicates what type of in¬ 
put is expected. The variables R and Cl are the row and column 
for the input. The computer uses the subroutine in line 1100 to get 
the entry. If the Return key is pressed and nothing was entered, 
B$ will be empty and null. The computer loops at this line until 
N or Y is entered. 

Line 180 checks to see if N was entered. If so, the computer 
is directed to line 400. The computer will play first. 

Line 190 clears the question from the screen and clears both 
elements of the array. 

Line 200 prints a message of the screen, then sets the variables 
for the input routine, the row and column. The computer uses the 
input subroutine at line 1100 to get the first card of the pair. If 
nothing is entered, B$ will be empty and the computer is sent to 
line 370 to pick a card. 

Lines 210-220 convert the card entered into its decimal 
equivalent. Each card is stored as a whole number. The suit is the 
decimal added to the whole number. 

Line 230 gets the second card of the pair. The variables are 
set before the computer uses the subroutine at line 1100. The com¬ 
puter loops at this line until a card is entered. 

Lines 240-250 convert the second card into its decimal 
equivalent. 

Line 260 checks the whole number of the card to see if both 
cards have the same value. The suit is also checked to see if they 
are both red or black. The value for the same color suits are two- 
tenths apart, so if the difference between the suit values is two- 
tenths, both suits are the same color. If either of the value or suit 
conditions are not met, the computer is sent to line 340 to print 
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the message on the screen, then ask for the pair again. 

Line 270 checks the cards in the player’s hand to make sure 
the player has the first card entered. If the card is not in the 
player’s hand, the computer goes to line 320 and tells the player 
the card was not found. The computer asks for the pair again. 

Line 280 removes the card from the player’s hand, makes a 
sound, then looks for the second card. If it is not in the player’s 
hand, the computer goes to line 320 to tell the player the card could 
not be found. 

Line 290 removes the card from the player’s hand, then uses 
the subroutine in line 550 to move the cards in the player’s hand 
up one position. 

Line 300 checks to see if the player has any cards left. If there 
are cards in the player’s hand, the computer uses the subroutine 
in line 2000 to print the current hand on the screen. The computer 
is sent to line 400 for the computer’s turn. 

Line 310 clears the screen and sends the computer to line 600 
to end the game. 

Line 320 uses the subroutine in line 3000 to make a sound, then 
prints a message on the screen. This tells the player the card can¬ 
not be found. 

Line 330 erases the message on the screen and sends the com¬ 
puter to line 190 for another pair. 

Line 340 makes a sound, then tells the player that the cards 
entered were not a match. The computer is sent to line 330 to erase 
the message and go back to the beginning of the input routine. 

Line 370 checks to see how many cards are in the player’s hand. 
If there are 30, the computer goes back to line 200. With that many 
cards, there has to be a pair. 

Line 380 tells the player how many cards are in the computer’s 
hand and. instructs the player to pick one. The computer uses the 
input subroutine in line 1100. The computer loops at this line until 
a number is entered. 

Line 385 finds the value of B$. If the value is more than the 
number of cards in the computer’s hand, the computer goes back 
to line 380 for another entry. 

Line 390 adds 1 to the number of cards in the player’s hand. 
The card that was chosen is removed from the computers hand and 
placed into the player’s hand. The last card in the computer’s hand 
is moved into the position of the card that was taken, and the last 
card is erased. The variable that counts how many cards are in the 
computer’s hand is decreased by 1. If this variable is 0, the com- 
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puter goes to line 600 to end the game. 

Line 395 sends the computer to the subroutine at line 2000 that 
places the cards on the screen. 

Line 400 begins the computer’s turn. The computer begins with 
the first card in the computer’s hand and checks every card after 
it to see if it matches. If a match cannot be made with the first card, 
the computer goes to line 470 to continue the loop. The loop con¬ 
tinues until every card in the computer’s hand has been compared 
with the others for a possible match. 

Line 410 compares the suit values of the two cards. If the suit 
colors of the two cards are not the same, the computer will con¬ 
tinue the loop. 

Line 420 is executed when the computer finds two cards of the 
same value and same suit color. The message is printed on the 
screen. The first card’s value is placed into CARD and the com¬ 
puter uses the subroutine at line 1000 to print this card on the 
screen. 

Line 430 moves the second card value into the variable CARD 
and the subroutine at line 1000 is used to print this card on the 
screen. The subroutine at line 3020 makes a sound and the 
subroutine at line 3100 pauses the program. The two cards are 
removed from the computer’s hand by placing a zero into their posi¬ 
tion in the array. The computer checks to see if these were the last 
two cards in the computer’s hand. If they were, the variable CC 
is set to 0 and the computer is sent to line 600 to end the game. 

Line 440 begins with the first card of the computer’s hand and 
looks for the elements that contain a zero. This is where the cards 
were removed. When the computer finds such an element, it moves 
the rest of the cards in the hand up one position, and decreases 
the value of CC by 1. The loop continues until all the cards have 
been moved up. 

Line 450 continues the loop to find the elements of the array 
that contain a zero. The last element of the array is checked to see 
if it contains a zero. If it does, the variable CC is decreased by 1. 

Line 460 uses the subroutine at line 2000 to update the screen. 
Then the computer is sent to line 190 for the player’s turn. 

Line 470 continues the loop that looks for a matching pair of 
cards. 

Line 500 begins the routine that picks a card from the player. 
The computer uses this routine when it can not find a pair of cards 
in its hand. The computer uses the subroutine at line 3010 to make 
a sound, then it chooses a random number based on the number 
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of cards in the player’s hand. Remember, the variable LC keeps 
track of how many cards are in the player’s hand. 

Line 510 tells the player which card was picked. The variables 
Z, X, and 15 are set for the correct position on the screen. The value 
of the card that was picked is moved into CARD and the computer 
uses the subroutine at line 1000 to print the card on the screen. 
The subroutine at line 3100 pauses the program for a few seconds. 

Line 520 adds 1 to the value of CC because the computer is 
adding a card to its hand. The card the computer picked is placed 
into the last element of the array. The last card in the player’s hand 
is moved to the position of the card that was just removed. The 
variable LC is decreased by 1, then checked to see if it is now 0. 
If it is, the computer is sent to line 600 to end the game. 

Line 530 sends the computer to line 460. This updates the 
screen, then continues the game with the player’s turn. 

Line 550 begins the routine that moves the cards up one posi¬ 
tion in the player’s hand. If the variable LC is 2, the last two cards 
in the player’s hand were just played so there are no cards to move 
up. The variable LC is reset to 0 and the computer returns to the 
main program. 

Line 560 begins the FOR-NEXT loop that moves the cards up. 
The computer compares the value of the element of the array to 
zero. If it is zero, the card was played and the computer begins 
another loop to move up the rest of the cards in the hand. The 
variable LC is decreased by 1 and the loop begins again. 

Line 570 continues the first loop that looks for the element with 
zero. After this loop is completed, the computer checks the last 
element of the array to see if it is zero. If it is, the computer sub¬ 
tracts 1 from the value of LC. 

Line 580 returns the computer to the main program. 

Line 600 begins the ending routine. The screen is cleared and 
the winning message is printed on the screen. 

Line 610 checks the variable CC to see if it is zero. If it is, the 
computer is the winner and this message is printed on the screen. 

Line 620 prints the message that the human is the winner of 
the game. 

Line 630 sends the computer to the subroutine in line 4000. 
When the computer returns to this line, the program is run again. 
To stop this program completely, press the System Reset key. 

Line 1000 prints the card on the screen. The value of the card 
must be in the variable CARD before the computer uses this 
subroutine. The integer or whole number indicates the value of the 
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card. This value is placed into the variable CV. The value of the 
suit is placed into the variable S. This value is obtained by multiply¬ 
ing the difference between the variable CARD and the variable CV 
by 10. The suit value is stored as the decimal in the variable CARD. 
If the value of the card is 10, the position of the card on the screen 
is recalculated. 

Line 1005 checks the value of the variable S. The hearts and 
diamonds are printed in red and the spades and clubs are printed 
in dark blue. 

Line 1010 prints the card on the screen. The value of the card 
is taken from CARD$. If the value of the card is 10, the zero is 
printed on the screen. 

Line 1015 prints the suit character on the screen and returns 
to the main program. 

Line 1020 takes the ASCII value of the card from CARD$. If 
the value is less than 190 the computer subtracts 32 from the value 
and prints it on the screen. This is the number in the alternate color. 
If the value of CV is 10, the zero is printed on the screen. 

Line 1025 adds 32 to the value of A if the value of A is greater 
than 190. This prints the letter on the screen in the other color. 

Line 1030 prints the suit character on the screen in the alter¬ 
nate color. 

Line 1050 begins the subroutine that places the cards into the 
C array and shuffles the cards. The first FOR-NEXT loop counts 
from 0.1 to 0.4 by 0.1. These are the four suits for the cards. The 
second loop counts from 1 to 13. Each time this loop is completed, 
the variable Q is increased by 13. This variable points to the posi¬ 
tion in the array where the next card will be placed. Its value is 
added to the value of X. This way a card is placed in each element 
of the array. 

Line 1060 moves the last Jack into the position held by the sec¬ 
ond King. Two Kings and one Queen will not be used in this 
program. 

Line 1070 begins two FOR-NEXT loops. The first loop is 
repeated five times. This is the number of times the deck of cards 
will be shuffled. The second loop begins with the last card used 
and continues backwards to the first card. The computer chooses 
a random card to move in the deck. 

Line 1080 places this card in a temporary storage area. The 
last card in the deck is moved into the position of the card that was 
just picked. The card in the temporary area is moved to the last 
position. 


30 



Line 1090 continues the loop. Since the number of cards the 
computer can choose from is smaller by one each time this loop 
is executed, all the cards can be moved; once the card is placed 
into the last position, however, it can never be touched again. The 
second loop continues until the cards have been shuffled five times. 
The computer then returns to the main part of the program. 

Line 1100 begins the input subroutine. The variable B is set 
to 1. This variable points to the position the character will occupy 
in the string. The string is cleared and the keyboard is opened. 

Line 1110 waits until a key is pressed. The value of that key 
is placed into the variable K. If its value is 155, the Return key 
was pressed and the computer is sent to line 1220. 

Line 1120 checks the value of K. If it is greater than 127, the 
inverse key was pressed. To get the normal value of the key, sub¬ 
tract 128 from the value of K. POKE location 694 with a zero to 
reset the flag for normal input. 

Line 1130 checks to see if the value of K is 126. This is the 
delete key. If it is 126 and the value of B is greater than 1, then 
the variable B is reset to 1, and the contents of B$ are erased. B$ 
is set to a null string (“”), and the letters or numbers on the screen 
are erased. The code is reset to 1, and the computer is sent to line 
1110 for another entry. 

Line 1140 checks to see if the value of K is greater than 95. 
If it is, the entry was a lowercase. The value of K is decreased by 
96 and the location 702 is POKEd with 64. This resets the keyboard 
for uppercase. 

Line 1150 checks the variable CS to see if it is 1. If it is, and 
the value of B is less than 4, the computer will check the value of 
K to see if a number key or the letter Q, K, J, or A was entered. 
The computer is sent to line 1200 if one of these keys was pressed. 

Line 1160 is used by the computer if the value of CS is 2 and 
the value of B is less than four. This line checks to see if one of 
the letters designating a suit was pressed. The four letters that the 
computer will accept for suits are H, S, C, and D, for hearts, spades, 
clubs, and diamonds. When one of these keys are pressed, the com¬ 
puter is directed to line 1230. 

Line 1170 is used when the value of CS is set to 3. The com¬ 
puter will only accept the letters N or Y on this line. 

Line 1180 is used when the variable CS is set to 4. This line 
checks for a number key. 

Line 1190 sends the computer back to line 1110. The key that 
was pressed could not be used by the computer. 
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Line 1200 places the character for the pressed key into B$. This 
character is then printed on the screen and the value of B is in¬ 
creased by 1. If the value of CS is 1, it is reset to 2 to allow the 
suit of the card to be entered. However, if the key pressed for the 
card value was numeral 1, the variable CS is reset to 1 because 
0 must be entered after the 1. 

Line 1210 sends the computer back to line 1110 if the value 
of CS is not zero. It is reset to 0 after a Y or N key was entered 
so the computer does not have to wait for the Return key to be 
pressed. 

Line 1220 closes the keyboard and sends the computer back 
to the main program. 

Lines 1230-1270 change the value of K from the letter key that 
was pressed to the value of the character of the suit. Once the value 
has been changed, the computer is sent to line 1200 to print the 
character on the screen. 

Lines 2000-2020 restore the information on the screen. The 
cards that are in the player’s hand are printed on the screen. 

Line 2030 prints how many cards are left in the player’s and 
the computer’s hands. 

Line 2040 sends the computer back to the main program. 

Lines 3000-3020 are the sound subroutines used in the program. 
There are three different types of sounds used in this program. 

Line 3100 is a timing loop. It is used to slow the program down. 

Lines 4000-4010 are used at the end of the program. The com¬ 
puter loops at line 4000 until the Start key is pressed. Once this 
key is pressed, the computer returns to the main program. 

TAROT CARDS 

Objective of the game: To be able to forecast the future. 

Directions: This program can be used as a parlor game. The 
computer asks for the sex and marital status of the player then shuf¬ 
fles the cards and deals them on the screen. The position of the 
cards determines the future of the player. None of the predictions 
are very specific; use your own imagination to fill in the details. 
The flowchart for this program is Fig. 1-3, and Listing 1-3 is the 
code. 

Line 50 sets aside the memory for the arrays and variables. 
The C array holds the deck of cards; CARDS and SUITS contain 
the values of the cards and the suit characters. The PLAY array 
holds the cards in the order they are displayed on the screen. WHO$ 
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holds the information needed to print messages on the screen. 

Line 60 determines how much memory is in the computer by 
PEEKing at location 106. This value is decreased by 16 so it points 
to memory just above the screen area. This is where the character 
set will be moved. The value is POKEd into location 204. The first 
byte of the ROM-based character set is POKEd into location 206. 
This information is used by the assembly language subroutine that 
moves the character set from ROM into RAM. The decimal value 
of the first byte of the character set is ROM is stored in variable CS. 

Line 70 reads the assembly language subroutine from line 80 
and POKEs it into memory locations 1536-1555. 

Line 80 contains the decimal values for the assembly language 
subroutine that moves the character set from ROM into RAM. 

Line 90 changes the screen to graphics 17; which is graphics 
1 with no text window. The computer uses the USR command to 
execute the assembly language that begins in memory location 
1536. When the computer returns to this line, it changes the 
character set to the one in RAM by POKing location 756 with the 
value of A. The first byte of this character set is stored in the 
variable CHARSET. 

Line 100 begins the FOR-NEXT loop that changes some of the 
characters in the character set. The computer reads a value from 
line 110. This is the location of the character that will be moved 
from the ROM character set into the RAM character set. The sec¬ 
ond FOR-NEXT loop takes each of the eight bytes and moves them 
into RAM. These characters are the four graphic characters that 
represent the four suits. The computer cannot display both numbers 
and graphic characters in the large color letter mode, so we replace 
some of the characters that will not be used with these four 
characters. 

Line 110 contains the location of the four characters. 

Line 120 sets CARDS to the values of the cards, SUITS to the 
four characters that represent the suits, and WHO$ to specific 
phrases-that will be used in the program. 

Line 130 prints a message on the screen while the computer 
uses the subroutine at line 1050 to place the cards into the C array 
and shuffle the cards. When the computer returns to this line, the 
screen is cleared. 

Line 140 sets the variable CS to 1. This tells the computer which 
letters to accept in the input routine. The computer prints a message 
on the screen and uses the subroutine in line 1100 to get an answer. 
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Fig. 1-3. Flowchart for Tarot. 
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Listing 1-3. Tarot. 


10 REM TAROT CARDS 

20 REM CHAPTER 1 - CARD GAMES 

30 REM BY L.. M. SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1984 

50 DIM C ( 52 ) , CARD* < 6) » SUIT* < 4 ) , F'LAY < 7, 
5),WHO*(72) 

60 A=PEEK(.106)-165POKE 204,a:cs=peek<7 

56)5 POKE 2 06,CS JCS=CS#256 

70 FOR X=1536 TO 1555 * RE. AD V: POKE X,V5 

NEXT XJREM MODE THE CHARACTER SET 

80 DATA 104,162,4,160,0,177,205,145,20 

3,200,208,249,230,206,230,204,202,208, 

242,96 

90 GRAPHICS 17 ! Q : =IJSR (1536 ) 1 POKE 756,A: 
CHARSET“A*256:REM SET IJP THE CHARACTER 

S 

100 FOR CSET=CHARSET+40 TO CHARSET+64 

step 8:read d:for x=o to 7:poke cset+x 

,PEEK(CS+V*8+X>:NEXT XJNEXT CSET 
110 DATA 64,80,96,123 

115 REM CHARACTERS IN CARD* AND SUIT $ 
ARE INVERSE 

120 CARD*-" A91JQK" :SUIT* = "7.& ' < "5WHO*=" 
MANY PEOPLE YOUR FAMILY YOUNG WOMAN YO 
UNG MAN YOUR WIFE AN ASSOCIATE" 

130 POSITION 1,125? *6}"7. & the tarot 
' ("JGOSUE: 10505CD=15POSITION 0,05? *6 
}CHR*<125) 

140 CS=1.POSITION 0,35? *65"Male or Fe 
Male?"5GOSUB 11005IF K=77 THEN SEX=05G 
OTO 160 

150 SEX=1♦WHO*(49,72)="GOOD FRIEND YOU 
R HUSBAND" 

160 CS-2 5 POSITION 0,51? #6{"Married or 
Single?"JGOSUB 11005IF K=77 THEN STAT 

=o:goto iso 

170 STAT'-l tWH0*(49,72)="G00D FRIEND AN 
ASSOCIATE" 

180 FOR X=0 TO 7:F0R Y = 0 TO 55PLAY<X,Y 
)=0 5 NEXT Y 5 NEXT X 

190 POSITION 0,0:? #6 ’,CHR*( 125) :q = o :z = 
i:y=i:for x=i to 24:card=c<x):position 

(X-Z)*3,YJGOSUB 1000 
20 0 PLAY <X-Z + l,INT < Y/2) + 1)=CARD 
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2:10 IF X/6=INT(X/6) THEN Y=Y+2!Z=Z+6 
215 REM love IS LOWER CASE INVERSE 
220 NEXT XJNE-ll{POSITION 0,NR 5 ? #6J M 1 
ove"5CARD=5.15NR=NR+1JIF NOT SEX THEN 
CARD=6.1 

230 FOR Y-l TO 4 * FOR X = 1 TO At IF PLAY < 
X , Y )-CARD THEN 250 
24 0 NEXT X J N E X T Y 

250 mc==x;mr=y:y==mr-i;l=ojmon=ojtra=>o jl 

UCK=0 

260 IF < MC<3 AND <MR = 1 OR MR-4) ) OR (M 
0-0 AND (MR-1 OR MR-4) ) THEN POSITION 
0 , NR J ? =16} "SOMETIMES FEEL ALONE" 

270 FOR X-MC-1 TO MC+1JIF PLAY(X,Y)==0 
OR (X : =MC AND Y=MR) THEN NEXT XJGOTO 30 
0 

28 0 NC-PLAY( X , Y )-INT(PLAY( X » Y > ) S IF NC< 
>0.1 THEN NEXT XJGOTO 300 
285 SOUND 0,100,10 ,10 IFOR Z = 1 TO 10 5NE 
XT ZJSOUND 0,0 ,0.0 

2.9 0 NC=INT (PLAY ( X , Y ) ) S POSITION 0,NRJ? 

*a; m cl.ose - *6;who$( cnc-i )*12+i, < 

NC-1)*12+12):nr=nr+ijl=i:next X 
300 Y=Y + 1 JIF YOMR + 2 THEN 270 
310 IF L= 0 THEN POSITION 0,NRJ? #6J M L.O 
VE ESCAPES YOU"JNR=NR+1 
320 GOSUE: 40 0 0 5NR=11 JY=MR-1 JPOSITION 0 
, NR : ? *6} "Money/gif ts" 5 NR=NR+1 
330 FOR X=MC-1 TO MC+1JIF PL.AY(X,Y)=0 
OR (MOX AND MR = Y) THEN NEXT XJGOTO 36 
0 

3*0 0 NC=PL.AY (X , Y ) -INT (PLAY ( X , Y ) ) J IF NC< 
>0.3 THEN NEXT XJGOTO 360 
3-15 SOUND 0,100,10,10JFOR Z = 1 TO 10JNE 
XT Z5 SOUND 0,0, 0,0 

350 NC-INT(PLAY(X,Y))5POSITION 0,NR5? 

♦ 6 J "FROM "JJ? #6 J WHO'P ( ( NC-1) *12+1, ( NC- 

1)*12+12)JNR=NR+1JMON=lJNEXT X 

360 Y=Y+1JIF YOMR + 2 THEN 330 

370 IF MON=0 THEN POSITION 0,NRJ? *6J" 

MANY LOSSES" 

375 REM TRAVEL IS INVERSE 
380 GOSUE! 4000 JNR=11 J Y=MR-1 J POSITION 0 
, NR J ? *6J "TRAVEL." JNR=NR+1 
390 FOR X=MC-1 TO MC+15IF PLAY(X,Y)=0 
OR (MC-X AND MR=Y) THEN NEXT XJGOTO 42 
0 
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400 NC=PL. AY ( X , Y ) -INT (PLAY <X»Y>)!IF NC< 
>0.2 THEN NEXT XtGOTO 420 
405 SOUND 0,100,10,10JFOR Z = 1 TO 105NE 
XT ZtSOUND 0,0, 0,0 

410 NC=INT (PL.AY ( X , Y ) ) {POSITION 0,NR{? 

♦6 > "with ■ ■;:'? *a;who$(<nc-1)*12+i,(nc- 

1 ) *12+12) JNR--NR + 1 !TRA=1 5 NEXT X 

420 Y=Y+1JIF YOMR+2 THEN 390 

430 IF TRA=0 THEN POSITION 0,NR{? *6;" 

NO TRAVELS" 

440 GOSUB 40 0 0 5NR='ll«Y=MR-1«POSITION 0 
,NRS? #65"LUCK"JNR=NR+1 
450 FOR X=MC-1 TO MC+ltlF PLAY(X,Y)=0 
OR (HC=X AND MR = Y) THEN NEXT X5 GOTO 48 
0 

460 NC-PL.AY < X , Y ) -INT (F'LAY(X,Y) ) {IF NC< 
>0.4 THEN NEXT XJGOTO 480 
465 SOUND 0,100,10,lOJFOR Z = 1 TO 10JNE 
XT z:SOUND 0,0, 0,0 

470 NC=INT<PLAY(X,Y) ) {POSITION 0,NR{? 

♦ 6 { "STRESS #6JWH0*< (NC-1)*12+1, (N 

C-l)*12+12){NR=NR+1{LUCK=15 NEXT X 
480 Y=Y+1JIF YOMR+2 THEN 450 
49 0 IF LUCI<=0 THEN POSITION 0,NR{? *6{ 
"NO TRAGEDIES" 

500 gosub 4000 :run 

1000 CV=INT(CARD){S=(CARD-CV)*10.IF CV 
=10 AND X-Z>1 THEN POSITION (X-Z)*3-l, 
Y 

1005 IF S=1 OR S=3 THEN 1020 

1010 ? *6{CARD$(CV,CV>}SIF CV=3 THEN ? 

♦ 6}"0"J » REM ZERO IS INVERSE 
1015 ? *6{SUIT4 <S,S)5RETURN 
1020 A=ASC(CARD$(CV,CV)){IF AC190 THEN 
? *6{CHR*<A-32>{{IF CV=3 THEN ? #6{CH 
R*<144){ 

1025 IF A>190 THEN ? *6{CHR$<A+32){ 

1 0 30 A=ASC(SUIT $(S,S)){? *6{CHR$<A-32) 
{RETURN 

1050 0 = 0 {FOR V=0.1 TO 0.4 STEP 0.15 FOR 
X=1 TO 6JC(X+Q)=X+V;NEXT X{0=0+6{NEXT 
V 

1060 FOR X=1 TO 5{FOR 0=24 TO 1 STEP - 
1{V=INT < RND(1)*0){REM PICK A CARD 
107 0 C< 0 )=C(V) { C (V ) =C (Q ) { C ( O ) = : C ( 0 ) { REM 
MOVE THE CARDS 



1080 NEXT a:NEXT X'.RETURN '.REM DO IT 5 
TIMES 

1100 OPEN *2,4,0,"K:“ 

1110 GET *2,KJIF K=155 THEN 1110 
1120 IF K>127 THEN K=K-128{POKE 694,0 
1180 IF K>95 THEN K=K-96:P0KE 702,64 
1140 IF CS=1 THEN IF K=77 OR K=70 THEN 
1170 

1150 IF CS-2 THEN IF K=77 OR K=83 THEN 
1170 

1160 GOTO 1110 

1170 CLOSE *2{RETURN 

40 0 0 IF PEEK <53279) 06 THEN 40 0 0 

4010 FOR X:=ll TO NR! POSITION 0,X{? *6*, 

" “'.NEXT X 

4020 RETURN 


The computer needs to know the sex of the player; if M was 
entered, the variable SEX is set to 0 and the computer is sent to 
line 160. 

Line 150 sets the variable SEX to 1 and changes some of the 
phrases in WHO$. 

Line 160 sets the CS variable to 2. The computer will now look 
for an M or S in the input routine. The second question is printed 
on the screen and the computer uses the subroutine in line 1100 
to get the response. If M was entered, the ST AT variable is set 
to 0 and the computer is sent to line 180. 

Line 170 sets the ST AT variable to 1 and changes some of the 
phrases in WHO$. 

Line 180 clears the PLAY array. The computer does not clear 
.string or variable arrays when the program is run. 

Line 190 clears the screen, sets the Q variable to 0, Z to 1 and 
Y to 1. The Z variable is used to place the card in the correct col¬ 
umn on the screen. The Y variable is the row value. The FOR- 
NEXT loop places the cards in the PLAY array and on the screen. 
The card to be printed on the screen is placed in the CARD variable. 
The position is calculated and the computer is sent to the subroutine 
in line 1000 to print the card on the screen. 

Line 200 places the card into the PLAY array. 

Line 210 checks the value of X to see if the computer is at the 
end of the line. If it is, the Z variable is increased by 6. 

Line 220 continues the FOR-NEXT loop. The NR variable is 
set to 11. This is where the message will be printed. The first topic 
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in which the future is forecast is LOVE. The value of CARD is set 
to the queen of hearts, but, if the value of SEX is 0, it is changed 
to the king of hearts. 

Line 230 looks for the king or queen of hearts in the array. 

Line 240 continues the loops. 

Line 250 stores the values for variables X and Y in variables 
MC and MR. This is the position of the heart card that we will be 
comparing with other cards on the screen. The Y variable is set 
to the position of MR - 1. The value of L, MON, TRA, and LUCK 
are set to 0. These four variables represent four areas—luck, money, 
travel, and love—for which the computer will tell the future. 

Line 260 checks to see where the card is located. If it is along 
one of the edges of the screen, a message will appear on the screen. 

Line 270 checks the row above the card for a card. If there are 
no cards in this row, the computer is sent to line 300. 

Line 280 checks the card to see if it is a heart. If it is not, the 
loop continues. 

Line 285 plays a short tone. 

Line 290 prints a message on the screen based on the value 
of the card next to the heart. This indicates the person to whom 
the player is emotionally close. 

Line 300 adds one to the value of Y; this is the row under the 
row just searched. The loop continues until the row above, the row 
below, and the row where the heart is located is searched. 

Line 310 checks if any hearts surround the king or queen of 
hearts. If none do, the L variable will remain 0 and a different 
message is printed on the screen. 

Line 320 uses the subroutine in line 4000 to keep the message 
on the screen. When a player wants to advance to the next message, 
press the Start key. The variable NR and Y are reset, and a new 
message appears on the screen. 

Lines 330-370 use the same routines to find the diamonds that 
surround the heart. Diamonds usually depict money, gifts, or good 
fortune. If any diamonds surround the heart, the computer will 
make a sound and the appropriate messages will be printed on the 
screen. If there are no diamonds, a different message is printed 
on the screen. 

Line 380 uses the subroutine in line 4000 and waits for the Start 
key to be pressed. The variables are reset and a new message is 
placed on the screen. 

Lines 390-430 search for a club. If a club is near the heart, the 
computer makes a sound and a message is printed on the screen. 
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If no clubs are near, there is no travel in the player’s future. 

Line 440 waits for the Start key to be pressed. Then the com¬ 
puter will tell the player what kind of luck to expect. 

Lines 450-490 look for spades. Spades are the misfortune cards; 
the fewer spades around the heart the better. If any exist, the com¬ 
puter prints a message on the screen. If there are none, the com¬ 
puter prints a better outlook on the future. 

Line 500 is the end of the program. The computer uses the 
subroutine in line 4000 to wait for the Start key. When it returns 
to this line, the program is run again. To end the program, press 
the System Reset key. 

Lines 1000-1030 print the cards on the screen. The values of 
the printed cards must be stored in the CARD variable before this 
subroutine can be used. The value of each card is stored in the 
variable CV, and the suit value in the S variable. The suit of the 
card is checked; if the card is a heart or a diamond the routine in 
line 1020 is used to print the card on the screen. Hearts and 
diamonds are printed in red and spades and clubs in dark blue. If 
the value of the card is 10, the zero is printed after the one. Once 
the card is printed on the screen in the correct color, the computer 
returns to the main program. 

Lines 1050-1080 place the cards in the array and shuffle them. 
The suit of the card is determined by the decimal value added to 
the card value. The two FOR-NEXT loops place the deck of cards 
into the array. The cards are shuffled by removing one card from 
the deck and placing it into a temporary element of the array. The 
card in the last element of the array is moved to the position of 
the card that was removed. The card in temporary storage is moved 
to the last element of the array. The loop counts backwards; once 
a card is placed in the last element of the array, the pointer is moved 
to the element just before it. The entire array is shuffled five times. 

BLACKJACK 

Objective of the game: To try to collect 21, or as many 
points as possible without going over 21, while collecting more 
points than the dealer. 

Directions: This program is written for one or two players. 
The program begins by placing one player on the screen. Press the 
Select key to change the number of players to two. The program 
will alternate between one and two players. Press the Start key 
when you are ready to begin. 

The screen clears after a few seconds and you are asked to bid. 
Bids must be between $1 and $500. Next the cards are dealt on 
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the screen. The dealer will have one card face down and the other 
showing. Each player is dealt two cards, both showing. 

If the dealer has an ace showing, you can take insurance. If 
the dealer has blackjack you will lose your bet if you do not have 
insurance and also have a blackjack. 

On your turn you can press the B key if you have blackjack, 
the D key to double your bet on your first turn, the H key to get 
another card, or the S key to stand. After each player plays his hand, 
the dealer plays his. The dealer is required to stand on a “hard” 
17 (i.e., one not containing a one-or-eleven ace) but draw to a “soft” 
16. 

A player who holds a blackjack is paid at odds of three to two 
unless the dealer also holds a blackjack. A winner is paid out even 
money, and a player who ties the dealer has his wager returned. 

After each hand the program asks if you want another hand. 
If so, another hand will be dealt. If not, the game ends. The game 
also ends when the players are out of money or a player’s win¬ 
nings exceed $1000. Figure 1-4 is the flowchart for this program, 
and Listing 1-4 contains the code. 

Line 50 sets aside the memory needed for the arrays and 
strings. The C array holds the deck of cards, CARDS and SUIT$ 
hold the values of the cards and the characters for the suits. The 
PLAY array holds the cards the players acquire, and the B array 
keeps track of he money the players have, the bet, and insurance. 
B$ is used to store an input. 

Line 60 finds out how much memory the computer has and sub¬ 
tracts 2K from this amount. The character set will be moved into 
RAM just in front of the screen memory. The addresses of the new 
character set and the old character set are stored in locations 204 
and 206. These two values will be used by the assembly language 
subroutine that moves the character set from ROM into RAM. The 
first byte of the ROM-based character set is stored in variable CS. 

Line 70 reads the code for the assembly language subroutine 
and places it in memory locations 1536-1555; line 80 contains the 
decimal codes for the routine. 

Line 90 changes the screen to graphics 17, which is graphics 
1 with no text window. The computer uses the USR command to 
execute the assembly language subroutine that begins in memory 
location 1536. This is the assembly language subroutine that moves 
the character set from ROM into RAM. When the computer returns 
to this line, it POKEs the address of the RAM-based character set 
into location 756. If your screen contains garbage, or the characters 
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Fig. 1-4. Flowchart for Blackjack. (Continued through page 46.) 
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Fig. 1-4 continued. 
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Listing 1-4. Blackjack. 


10 REM 21 - BLACKJACK 

20 REM CHAPTER 1 - CARD GAMES 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

TO REM COPYRIGHT 1984 

5 0 DIM C ( 52 ) , CARD* (13) , SUIT * ( 4 ) > PL. AY < 2 
,13),B(2,3),B*(4) 

6 0 A=PEEK(106)~165POKE 2 04,A:CS=PEEK(7 
56)1 POKE 206,CS!CS=CS*256 

70 FOR X-1536 TO 15555READ VJPOKE X,V: 
NEXT X t REM MODE THE CHARACTER SET 
80 DATA 104,162,4,160,0,177,205,145,20 
3,200,2 08,24 9,230,206,230,204,202,2 08, 
242,96 

90 GRAPHICS 17:Q=USR<1536)JPOKE 756,A: 
CHARSET~A*256•REM SET UP THE CHARACTER 
S 

100 FOR CSET=CHARSET+40 TO CHARSET+64 
STEP 8tREAD VJFOR X=0 TO 7tPOKE CSET+X 
, PEEK <CS+V*8+X> ’.NEXT X’.NEXT CSET 
110 DATA 64,00,96,123 

115 REM CHARACTERS IN CARD* AND SUIT* 
ARE INVERSE 

120 CARD*="A234567891JQK n JSUIT* = "%&'(" 
5REM PUT THE CARDS IN THE STRINGS 
125 REM nunber of players IS LOWER CAS 
E INVERSE 

130 SOUND 0,100,10,10:? *6;CHR*(125):p 
L. = 1: POSITION 1,5:? #6 $ "nunber of playe 
rs":SOUND 0,0, 0,0 

140 POSITION 9,10JIF PEEK(53279)=5 THE 
N PL=PL+i:iF PL=3 THEN PL=1JREM GET TH 
E NUMBER OF PLAYERS 
150 IF PEEK(53279)=6 THEN 170 
160 ? *6 } PL J FOR X= 1 TO 100‘.NEXT XIGOTO 
140:REM TIMING LOOP FOR SWITCHES 
170 FOR X=1 TO 2:B<X,1)=500 :B(X,2) = 0*.B 
(X,3 )=o:next x:if pl=i then b<2,1)=o 
180 POSITION 1,12:? * 61 '“/. & shuffling 

' (":gosub ioso:cd=o 

190 FOR X=0 TO 2:F0R V=0 TO 13:PLAY(X, 

v)=o:next v:next x 

195 REM 21 IS INVERSE 

200 POSITION 0,05? *6}CHR*(125)JPOSITI 
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ON 9,0 5? *6 5 "21" {POSITION 0,2 J? £6; "do? 
a ler " 

210 FOR X=1 TO PL * POSITION X*:L 0-1 0 , A J ? 

♦ A J "PLAYER *"JX5B*=STR*<B<X,1) ) 5 POSIT 
ION X*‘l 0-9,235? *A}"* 

220 POSITION X* 10 -5-L.EN < B$ ) ,235? #6}B$ 
J NEXT X5FOR X = 1 TO PLJIF B(X,1)=0 THEN 
290:REN SETUP-SKIP A PLAYER WITH NO M 


ONEY 

2.3 0 R-4 J SOUND 0 , 1 0 0 , 1 0 , 1 0 5 POSITION 0,R 
5? 16\ "BID-PLAYER t"JX)" $ "5 CO-15J 

cs~i * sound o,o,o,o:gosub 110 0 

240 B$~B$(1,CO-15),B-VAL.(B$)* IF B<1 OR 
B>500 THEN GOTO 23 0 
250 IF B>B(X,1) THEN 230 
26 0 B(X,2)=B5 B(X,1)=B(X,1)-B5POSITION 
X* 10-9,22*? *6}"* 11 5 POSITION X*:L0~5~ 

L.EN (B$ ) , 22 * ? *6}B 

270 B$-STR$(B(X,1))’POSITION X*10-9,23 
5? *6?"$ " 5 POSITION X*10-5-L.EN(B$) ,2 

3 * ? *6 5 6$ 

280 NEXT X 

29 0 PI -1 5 R-7 J POSITION 0,4*,? *6?" 

"5 REN REMOVE THE BID PROM 
PT 

30 0 FOR X : =l TO PLJIF B(X,2)=0 THEN PLA 
Y(X, 0 )-22 5 GO TO 320 

310 CD-CD+1J POSITION X*10~10,RJCARD=C( 

CD) J GO SUB 10 0 0 J PLAY (X , P1) : =CARD 

320 NEXT XJR-R+15R2~R5R3=R 

330 CD-CD+1J CARD = C (CD ) 5 PLAY ( 0 , P1) --CARD 

*P1«P1 +1JIF PI=2 THEN POSITION 0,3JGOS 

UB lOOOJGOTO 300 

335 REM ASTERISK IS INVERSE 

340 POSITION 4,3*? *6J"JCD=CD + 15 IF I 

NT (PL. AY ( 0 ,1) ) <> 1 THEN 410 

350 FOR X='l TO PLJIF B(X,2)=0 THEN 400 

355 REM QUESTION MARK IS INVERSE 
36 0 SOUND 0,100, 1 0,105POSITION 0,0 5? * 
6J" "J 5POSITION INK 

X*10-10),9J? *6J"?" 

370 POSITION 0,05? *6J"INSURANCE Y/N?" 
5 SOUND 0,0,0,05 CS-2 S C0=17 J R^O 5 GOSUB 11 
0 0 5 IF B* = "N" THEN 400 

38 0 B < X , 3 ) - INT (B ( X , 2 ) 72) 5 B$=STR* (B (X , 3 
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)) * position x#io-9,2i:? *6 ; ,, $ ,, :positio 
N X*1 0-5--LEN (B$)* 21{? #6{B$ 

39 0 B ( X , 1) =B ( X , .1) ~B < X , 3 > { B$=STR$ (B < X , 1 
)){POSITION X*10-9,23J? #6?"$ "5POSI 
TION X*10-5~L.EN(B$> ,235? *6{B$ 

400 POSITION INT <X#10-10 ) »9 {? *6{" "JN 
EXT X 

410 IF INT(PLAY(0,1))<10 AND INT<PLAY( 
0,1)X>1 THEN 500 

42 0 X=05GOSUB 1210 5 REM BEE IF DEALER H 

AS BLACKJACK 

430 POSITION 0,05? *6{" 

"5 IF TOO21 THEN FOR X =1 TO PL5B(X 

,3)=o:next x:coto soo 

435 REM black-jack IS LOWER CASE INVER 
SE 

440 SOUND 0,50,10,105POSITION 5,05? #6 
5 "black-jack" 5CARD=PL.AY < 0,2) {POSITION 
4,3 5 COSUE: 10 00 : SOUND 0,0, 0,0 
450 FOR X=1 TO PL5GOSUB 12105IF TC=-1 
THEN B(X,2)=2*B(X,2)5IF B(X,3)=0 THEN 
B ( X , 2 ) - 0 

460 IF TCO-1 THEN B (X , 2 ) = 0 5 B ( X , 3 ) =0 
470 B(X,1)=B(X,1)+B(X,2)+B(X,3){B(X,3) 
= 0 :B(X,2) = 0‘.POSITION X*10-9,21{? *6 5 " 
"{POSITION X*10-9,22 5 ? * 61 " 

480 B*=STR*<B(X,1>>{POSITION X*10~9,23 
{? *6}"* "‘.POSITION X*10-5-LEN(B$) ,2 
3 5? *6{B*5 REM SHOW MONEY LEFT 
490 NEXT X{FOR V=1 TO 200{NEXT V5GOTO 
880{REM ASK FOR ANOTHER GAME 

500 ri==r:d=o{for x=i to pl:r=ri:if b(x 

,2)=0 THEN 620 

510 SOUND 0,100,10,lOJF'OSITION 0,05? # 
6{" "{POSITION 0,05? 

*6{"Hit or Stand?"{SOUND 0,0, 0,0 
515 REM QUESTION MARK IS INVERSE 
520 R= : R2 5 POSITION X*10-9,R5? *6{"?"{CS 
= 0 {CO = 13{R = 0 5GOSUB 11 0 0 { R = R2 *. REM FIND 
OUT WHAT THE PLAYER WANTS TO DO 
530 IF B$="S" THEN GOSUB 1210{GOTO 600 
{REM NEXT PLAYER 

540 IF B*-"B" THEN GOSUB 12105 IF TC=-1 
THEN GOSUB 630 5PLAY(X,0)~TC{GOTO 620{ 
REM THERE IS A BLACKJACK 
550 IF B$ = "B" AND TCO-1 THEN 510 



560 IF E:$ = ,, D" THEN GOSIJB 640JD=1JREM S 
EE IF BET CAN BE DOUBLED 
570 CARD=C(CD)JCD=CD+1JPLAY(X,PI)=CARD 
J POSITION X#:L0~10 ,RJGOSUB 1000 JR=R+1 JP 

i=pi+i :r 2 =r:gosub 1210 

575 IF D = 1 THEN 60 0 J REM ONLY ONE CARD 
ON A DOUBLE DOWN 

580 IF TC>21 AND (T1==0 OR Tl>21 ) THEN 
60 0 

590 GOTO 510 

60 0 IF (TC<22 AND TOT1) OR TC=-1 THEN 
PLAY(X » 0)=TC 5GOTO 620 
610 PLAY (X,0)=T1JIF T1--0 OR Tl>21 THEN 
PLAY< X » 0)=TC 

62 0 POSITION X*10-9,R 5? *6}" "JP1=3JR= 
R3 JR2=R*D~0 5NEXT XJGOTO 700 
630 FDR Q=0 TO 15JSETC0L0R '*,Q,0JSOUND 
0,0*10,10,10{NEXT Q JSETCOLOR 4,0,0JSO 
UND 0,0 , 0 , 0:RETURN 

6T0 IF B(X, 1 ><B(X ,2) THEN POP JGOTO 51 
0 

650 IF P1>3 THEN POP JGOTO 510 
660 B < X , 1) =E: ( X , 1) -B ( X , 2 ) J B < X ,2 ) =2*B ( X , 
2)J B$=STR$(B(X,1))J POSITION X*10-9,23J 
? : I6 ;"<i 

670 POSITION X* 1 0-5-L.EN (B$ ) ,235? *6{B* 
5 B$=STR$(B (X , 2 ))JPOSITION X#10-9,22J? 
*6} "4 

680 POSITION X#10-5-LEN(B$),225? #6JB$ 
JRETURN 

690 REM END THE GAME 

700 X=0JQ=3JIF PLAY(1,0)>21 AND PLAY(2 

,0)>21 THEN 810 

710 POSITION 0,0J? #65" 

" J CARD=PLAY (0,2)J POSITION -T , 3 5 GOSU 
B 1000JGOSUB 1210JIF TC>16 THEN 760 
72 0 F'LAY (X, Q ) : =C < CD ) J CARD=G (CD) J0=0+15C 
D-CD+1JIF Q<7 THEN POSITION (0-2)#4,3 
730 IF Q>6 THEN POSITION (0-2)*T-20,T 
7T0 GOSUB 10 0 0 *GOSUB 1210JIF TC>16 THE 
N 76 0 

750 GOTO 720 

760 IF T1=21 OR TC=2:I. OR T2=21 THEN F'O 
SITION 0,11? *6}"21-HOUSE WINS"JPLAY(0 
,0)=21JGOTO 810 

770 IF T1C17 AND T1O0 THEN 720 J REM TR 
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Y WITH THE LOWER HAND 

780 IF T2< 17 AND T2<>0 THEN 720 

79 0 F'LAY <0,0) =TC5IF T2O0 AND T2<22 TH 
EN PLAY(0,0)=T2 

795 IF TOT :L AND TC<22 THEN PLAY (0,0) = 
TC 5 GOTO 810 

80 0 IF T1>T2 AND TX22 THEN PLAY<0,0)= 
T 1 

810 FOR X = 1 TO PL5 IF F'LAY(X,0>=-1 THEN 
POSITION XxlO-9,205? #65"blackjack"5B 
< X , 2)=INT(B(X,2)*2.5)* GOTO 860 
820 IF PLAY(X» 0)>21 THEN B<X,2) = 05 GOTO 
860 

830 IF PLAY<X,0)>PLAY<0,0) THEN B(X,2) 
= 2*B( X , 2 )5 GOTO 860 

8^0 IF PLAY <0,0X22 AND PLAY (0,0 )>F'LAY 
<X,0) THEN B(X,2)=0JGOTO 860 
850 IF P L A Y ( 0 , 0 > > 21 AND PLAY(X,0X22 T 
HEN B< X»2) =E:(X »2)#2 

860 B ( X , 1) =B < X , 1) +B ( X , 2.) 5 B ( X , 0 ) = 0 5 F'OSI 
TION X*10-9,225? #65"$ "{POSITION X* 
10-9,235? *6;"$ 

87 0 B$=STR$ (B(X,1) ) 5 POSITION X*10-5~L.E 
N (B$),235? *65&$5NEXT X 
880 POSITION 0,05? *6 }" 

"5IF B (1,1)>=1 0 0 0 OR B(2»1)>=1000 
THEN 950 

890 IF B(1,1)<=0 AND B<2,1X=0 THEN PO 
SITION 4,105? #6} "house wins!"5GOTO 98 
0 

900 POSITION 0,05? *65"F'LAY AGAIN? n JCO 

=ii.:r=o :cs= 2 :gosub 1100 

910 IF B$~"N" THEN END 
920 IF CD>30 THEN 180 
930 GOTO 190 
94 0 REM GAME ODER 

950 POSITION 5,05? *6;"gam? over!"JPOS 
ITION 0,10:? *65"PLAYER I"5 
96 0 PL.=2 * IF B (1,1) >B (2,1) THEN PL=1 
965 REM wins! IS LOWER CASE INVERSE 
970 ? *6J P L JPOSITION 7,125? *65"wir.s!" 
98 0 IF PEEK (53279) 06 THEN 98 0 
990 RUN 

10 00 CV=INT < CARD)5S=(CARD-CV)*10 

1005 IF S=1 OR S=3 THEN 1020 

1010 ? ; I6 5CARD$(CV,CV) 5 5 IF CV-10 THEN 



? *6 i "0"J JREM ZERO IS INVERSE 
1015 ? *6»SUIT $(S,S)5RETURN 
1020 A=ASC (CARD$ < C9,C9)> 5 IF AC190 THEN 
? *6 JCHR* (A-32) J JIF C9=10 THEN ? #6JC 
HR$ <144 ) J 

1025 IF A>190 THEN ? *6 } CHR'l (A+32 ) J 

1026 A=ASC(SUIT$(S,S))! ? *6JCHR$(A-32) 
5 RETURN 

1030 C91=0*S=INT(CARD/13)!C9=CARD-S*13 
+1 * IF CV=1 THEN C91 = l 1 
10-00 RETURN 

1050 Q= 0 J FOR 9=0.1 TG 0.4 STEP O.IJFOR 

x=i to i3:c(x+q)=x+v:next xjg=g+i3jne 

XT 9 

1060 FOR X=1 TO 5 J FOR 0=52 TO 1 STEP - 
1J 9=INT < RND(1)#Q >! REM PICK A CARD 

1070 c<o)=c<9):c(9)=c(Q):c(Q)=c(o ):ren 
M09E THE CARDS 

1080 NEXT Q * NEXT XSRETURN JREM DO IT 5 
TIMES 

1100 B= 0 J B$ = ""5 OPEN *2,4,0,"K J" 

1110 GET *2,KJIF K = 155 AND THEN 

CLOSE *2JRETURN 

1120 IF K>127 THEN K=K-128JP0KE 694,0! 
REM RESET INVERSE FLAG 
1130 IF CS=1 AND K=126 AND C0>15 THEN 
CO=CO-l5B*(CO-14,CO-14)=" "JPOSITION C 
O,R J ? *6 J" "JGOTO 1110 

1140 IF K>95 THEN K=K~96JP0KE 702,64JR 
EM SET FOR UPPERCASE 

1150 IF CS=1 AND COCLQ AND (1047 AND K 
<58) THEN B$(CO-14,CO-14)=CHR$(K)!GOTO 
1190 

1160 IF CS=0 THEN IF K=72 OR K=83 OR K 
=68 OR K=66 THEN B*(1,1)=CHR*(K)JGOTO 
1190 

1170 IF CS=2 THEN IF K=89 OR K=78 THEN 
B$(1,1)=CHR$(K)J GOTO 1190 
1180 GOTO 1110 

1190 POSITION CO,R J ? *6 JCHR$(K)JIF CS= 
1 THEN CO=CO+l 
1200 GOTO 1110 

1210 A=0 J T2=A J TC=A J T1=A J FOR 9=1 TO :L 3 J 
I=INT(PLAY < X,9))JIF 1=0 THEN 1270 
1220 IF I>9 THEN TC=TC + 10JT1=T1 +105 GOT 
O 1250JREM ADD 10 FOR FACE CARD OR 10 
1230 IF 1=1 THEN TC=TC+11JT1=T1+1JA=A+ 
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1JG0T0 1250 :rem count ace: as high and 
LOW 

12^0 tc==tc+i:ti=ti+i 

1250 IF A : =2 THEN T2=T1+10:REM SPLIT AG 
AIN - TWO ACES 

1260 NEXT 0*.RETURN 5REM MORE THAN 2 CA 
RDS IN HAND 

1270 IF X>0 AND TC=21 AND U=3 THEN TC= 
-1JREM BLACKJACK! 

1280 U~13!NEXT YJRETURN J REM GET RID 0 
F NUMBERS ON STACK 


do not look right on the screen, check to see that you have the cor¬ 
rect variable and the correct location. The first byte of the character 
set in RAM is stored in the variable CHARSET. 

Line 100 moves four characters from ROM into RAM. Since 
the computer displays numbers with uppercase letters and the 
graphics characters with lowercase letters, it is necessary to move 
the four characters that represent the four suits from ROM and 
replace characters in the RAM character set. In this program we 
will replace the percent sign, the ampersand, the apostrophe, and 
the open parenthesis with the heart, club, diamond, and spade. The 
location of these characters in the character set are read from the 
DATA line. This value is multiplied by eight and added to variables 
X and CS. For all four characters, the computer loops through the 
FOR-NEXT loop reading each of the eight bytes and moving them 
into RAM. 

Line 110 contains the locations of the four characters in the 
character set. 

Line 120 places the values of the cards into CARD$ and the 
characters that now represent the four suits into SUIT$. 

Line 130 makes a sound, clears the screen, and prints a message 
on the screen, and prints a message on the screen. The PL variable 
is set to 1. This is the number of players. 

Line 140 checks to see if the Select key has been pressed. If 
it has, the value of PL is increased by 1. If the value reaches three, 
it is reset to 1. 

Line 150 checks to see if the Start key has been pressed. If 
so, the computer is sent to line 170 to begin the game. 

Line 160 prints the number of players on the screen, executes 
a timing loop to give the player a chance to release the key, and 
loops back to line 140. 
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Line 170 places $500 into each player’s kitty, and clears the 
bet and insurance elements of the B array. If only one person is 
playing the money in the second player’s kitty is removed. 

Line 180 begins the next part of the program. The message 
is printed on the screen. The computer uses the subroutine in line 
1050 to place the cards into the C array and shuffle them. When 
the computer returns to this line, the CD variable is set to 0. This 
variable keeps track of how many cards have been played so the 
computer knows when to shuffle the cards again. 

Line 190 contains two FOR-NEXT loops that clear the elements 
of the PLAY array. 

Line 200 clears the screen and prints some words on the screen. 

Line 210 prints the amount of money available to both players. 
The value of the first element of variable B is placed as a string 
into B$. The player’s money position is calculated and the old 
amount is cleared. 

Line 220 prints the amount of money currently available for 
this player, then continues the loop for the next player. After this 
loop is completed, the computer begins a second FOR-NEXT loop. 
The amount of money the player has is checked. If the player has 
no money, the computer is directed to line 280. If there is money, 
the computer will continue to get a bet. 

Line 230 makes a sound and asks for the player’s bet. The com¬ 
puter uses the subroutine in line 1100 to retrieve the entry. 

Line 240 takes the value entered in B$ and places it into B$. 
This little manipulation gets rid of any spaces that may be at the 
end of the string. If, for instance, the amount of $100 was entered 
and then the player changed his mind and used the delete key to 
change the amount to $25, the extra space at the end of the string 
would remain. The value of B$ is placed into variable B. If the 
amount is less than 1 or greater than 500 the computer is sent back 
to line 230 to get another bet. 

Line 250 checks to see if the player has enough money. If the 
amount of variable B is greater than the amount of money in the 
first element of the player’s array the computer is sent back to line 
230 for another try. 

Line 260 stores the amount bet into the second element of that 
player’s array and decreases the amount of money in the first ele¬ 
ment of the array by the amount bet. The amount of the bet is 
printed on the screen just above the amount of money the player 
has. 

Line 270 places the amount of money the player has as a string 
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into B$. This amount is then printed on the screen. 

Line 280 continues the loop. 

Line 290 removes the bid prompt from the screen. 

Line 300 begins the next FOR-NEXT loop; it prints two cards 
for each player on the screen. The computer checks to see how 
much money the player bid. If no money has been bid, the com¬ 
puter sets the element of the PLAY array that stores how many 
points the hand is worth to 22 and the computer is directed to line 
320. 

Line 310 increases the value of CD by 1. This variable points 
to the next card in the array that will be played. The value of this 
card is moved into CARD and the computer uses the subroutine 
in line 1000 to print the card on the screen. The card is then moved 
into the correct position of the PLAY array. 

Line 320 continues the loop. After both cards have been dealt, 
the R variable is increased by 1, then stored in variables R2 and R3. 

Line 330 adds one to variable CD, moves the value of the next 
card into CARD, then moves the card value into the dealer’s area 
for the array. The value of PI is increased by 1. If it then equals 
2, the computer will use the subroutine in line 1000 to print the 
card on the screen. Then the computer is directed to line 300 to 
print the second card on the screen for each player. 

Line 340 prints the asterisk on the screen as the dealer’s sec¬ 
ond card. The variable CD is incremented by 1 so it is pointing to 
the next card to be dealt. The dealer’s first card is checked to see 
if it is an ace. If it is not, the computer goes to line 410 to continue 
the game. 

Line 350 begins another FOR-NEXT loop. In this line the com¬ 
puter checks the second element of each player’s array to see if 
any money has been bet. A zero here means that a person is not 
playing. The computer goes to line 400 if the player is not playing. 

Line 360 makes a prompting sound, clears the first line on the 
screen, and prints a question mark in the ninth row. 

Line 370 places the question on the top row of the screen. The 
computer wants to know if the player wants insurance. The variable 
CS is set to 2; this value is used in the input routine. Variables CO 
and R are set for the column and row, and the computer uses the 
subroutine in line 1100 to get an input. Only the letters Y or N will 
be accepted. When the computer returns to this line, it checks the 
contents of B$. If it is N, the computer goes to line 400—the player 
does not want insurance. 

Line 380 takes half the amount bet and stores it in the third 
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element of the array for this player. This is the insurance amount. 
The variable is converted into a string and this amount is printed 
on the screen just above the amount bet. The insurance is always 
half the original bet. 

Line 390 subtracts the insurance money from the amount of 
money the player has in the first element of the array. This new 
amount is converted into a string and printed on the screen. 

Line 400 clears the player’s entry, the Y or N, from the screen. 
The loop continues until both players have been given a chance 
to buy insurance. 

Line 410 checks the value of the dealer’s first card again. This 
is the line the computer is directed to if the first card is not an ace. 
The computer wants to know if this card is an ace, a ten, or a face 
card. If it is none of these cards, the computer is sent to line 500. 

Line 420 begins the routine that checks to see if the dealer has 
blackjack. If the dealer has an ace, you are given a chance to in¬ 
sure your bet; however, if the dealer has a ten or face card show¬ 
ing, you cannot get insurance. The dealer is allowed to peek at his 
other card and call a blackjack if he has one. The variable X is set 
to 0, and the computer uses the subroutine in line 1210 to find out 
what the two cards total. 

Line 430 clears the message from the top row on the screen. 
The variable TC contains the total value of the two cards. If it is 
not 21, the dealer does not have blackjack. The money used as in¬ 
surance is lost, and the computer is sent to line 500 to continue 
the same. 

Line 440 makes a sound and announces that the dealer has 
blackjack. The value of the card that was face down is placed into 
CARD. The subroutine at line 1000 prints the card on the screen. 

Line 450 begins the loop that checks the hands of both players. 
If the value of TC is -1, the player has blackjack and is paid even 
money on the bet. However, if there was no insurance on this bet 
everything is lost and the second element of the player’s array is 
set to 0. 

Line 460 checks to see if the value of TC is not - 1; this means 
that the player’s card count is less than 21. If this is the case, both 
the money bet and the insurance money is lost. Both elements of 
this player’s array are set to 0. 

Line 470 adds the values of the three elements of the player’s 
array and stores the total in the first element of the array. The bet 
and insurance elements are cleared and the values are erased from 
the screen. 
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Line 480 places the value of the first element of the player’s 
array into B$, calculates the correct position on the screen, and 
prints this amount of the screen. The player now knows how much 
money he has left. 

Line 490 continues the loop for the other player. The timing 
loop gives the players a chance to study the screen; then the com¬ 
puter goes to line 880 and asks for another game. 

Line 500 resets the variables R1 and D. The FOR-NEXT loop 
begins the routine that deals the rest of the hand to the players. 
The second element of the player’s array is checked. If it is zero, 
the computer is sent to line 620. This person is not playing. 

Line 510 makes a sound, then prints a message in the top row 
of the screen. You are asked if you want a hit or to stand. You also 
have the option of pressing the B key for a blackjack or the D key 
to double your bet on the first turn. 

Line 520 prints a question mark on the screen under the last 
card displayed. The variable CS is set to zero and the computer 
is sent to the subroutine in line 1100 to set your input. Only the 
letters B, H, S, and D will be accepted. 

Line 530 checks the contents of B$. If it is S, the computer 
uses the subroutine in line 1210 to set the value of your cards. The 
computer then goes to line 600 to give the next player a turn. 

Line 540 is used if the contents of B$ is B. The computer uses 
the subroutine in line 1210 to get the value of the hand. If the value 
of TC is -1, the player has a blackjack and the computer uses the 
subroutine in line 630 to change the screen color and make a win¬ 
ning sound. The value of variable TC is placed in the zero element 
of the player’s array and the computer is sent to line 620 to con¬ 
tinue the same. 

Line 550 sends the computer back to line 510 if the player does 
not have blackjack. 

Line 560 sends the computer to line 640 if the contents of B$ 
is D. A bet can only be doubled on the first turn. When the com¬ 
puter returns to this line, the variable D is set to one. This indicates 
a successful double. 

Line 570 places the next card into the CARD variable. The CD 
variable is incremented by one so it is pointing to the next card, 
and the card just taken is placed into this player’s array. The com¬ 
puter uses the subroutine at line 1000 to print the card in the cor¬ 
rect position on the screen. The variable PI is increased by 1. This 
is the next position in the player’s hand for the next card. The 
subroutine in line 1210 is used to total the value of the hand. 
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Line 575 sends the computer to line 600 if the value of D is 
one. This player doubled his bet is allowed only one card for a total 
of three on a double. 

Line 580 checks the value of TC. If it is greater than 21, and 
the values of T1 are 0 or greater than 21, the player broke and the 
computer is sent to line 620. The value of the player’s hand is stored 
in the zero element of the PLAY array. The variable T1 contains 
the alternate value of the hand should the hand contain an ace. 

Line 590 sends the computer to line 510 for another entry. 

Line 600 checks the values of the variables that contain the 
total value of the hand. If the value of TC is less than 22 and greater 
than the alternate value of the hand, or if it is -1, indicating black¬ 
jack, then this value is placed in the zero element of the array and 
the computer is sent to line 620. 

Line 610 places the alternate value of the hand into the zero 
element of the array. However, if the value of T1 is 0 or the value 
of T1 is greater than 0, the value of TC is placed in this element 
of the array. 

Line 620 erases the player’s entry on the screen and resets the 
variables for the next player. The loop continues for the other 
player’s turn. After both players have taken a turn, the computer 
is sent to line 700 for the dealer’s turn. 

Line 630 is used when a player is dealt a blackjack. The com¬ 
puter returns to line 540 after it changes the screen colors and 
makes the winning sounds. 

Line 640 begins the subroutine that checks to see if the player 
can double down. First the computer checks to see if there is enough 
money to double the bet. If not, the POP command removes the 
return address from the stack and the computer does not return 
to line 560. Instead it goes to line 510 to get another entry. 

Line 650 checks how many cards have been dealt to this player. 
The player can choose the double down option only before receiv¬ 
ing a third card. Once he has three or more cards, the option can¬ 
not be chosen. If the value of PI is greater than three, the POP 
command is used again to remove the return address from the stack. 
The computer is sent to line 510 for another entry. 

Line 660 removes the amount of the bet from the first element 
of this player’s array. The amount of the original bet is doubled, 
and the amount of money left is converted into B$. The money the 
player had is erased from the screen. 

Line 670 prints the amount of money the player has left in the 
last row of the screen. The amount of the new bet is placed into 
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B$ and the old bet is removed from the screen. Line 680 prints the 
amount of the doubled bet on the screen, then returns to line 560. 

Line 700 begins the dealer’s turn and the end of the game. The 
values of both players’ hands are checked. If both are over 21, the 
dealer does not deal to himself and the computer is sent to line 810 
to end the game. 

Line 710 clears the message from the top row of the screen. 
The value card that was face down is placed into CARD and the 
computer uses the subroutine at line 1000 to print this card on the 
screen. The value of the dealer’s hand is calculated in the subroutine 
at line 1210. If the value of the hand is greater than 16, the com¬ 
puter is sent to line 760. 

Line 720 takes the next card from the deck and places it in the 
computer’s hand. This value of this card is placed into variable 
CARD and variable CD is increased by one. Variable Q counts how 
many cards have been printed on this line (only six cards can be 
printed on one line). The position of the card is calculated if this 
is not the seventh card the computer has drawn. 

Line 730 calculates the position the card will be printed if the 
variable Q is greater than 6. 

Line 740 uses the subroutine in line 1000 to print the card on 
the screen, and the subroutine in line 1210 to get the total value 
of the dealer’s hand. This value is compared to 16. If the dealer’s 
hand is greater than 16, the computer is sent to line 760. The dealer 
stands on a hard 17. 

Line 750 sends the computer to line 720 to draw another card. 

Line 760 checks the values of variables Tl, TC, and T2. If any 
of these values equal 21, the house has 21 and wins. This value 
is stored in the computer’s array and the computer is sent to line 
810. 

Line 770 checks whether the alternate value of the hand is less 
than 17. If so, the computer is sent to line 720 to draw another card. 
Variable Tl must contain some value; if it is 0, the dealer does not 
have an ace, and does not have an alternate value. 

Line 780 checks the third possible value the hand could have. 
If this value is less than 17 and not 0 the computer will go back 
to line 720 and draw again. 

Line 790 places the value of TC in the computer’s array. It has 
to check the alternate value this hand could have. If the value of 
T2 is not 0 and is less than 22, this value is placed in the computer’s 
array. 

Line 795 checks to see if the value of TC is greater than the 

59 



value of T1 and less than 22. If so, this is the value placed into 
the computer’s array. 

Line 800 compares the values of T1 against T2. If they are 
greater and less than 22, this value is used. The highest value for 
the dealer’s hand under 22 is used as the hand’s value. 

Line 810 begins the routine that checks the values of the 
player’s hands. If the value of a player’s hand is -1, the player has 
blackjack. This is printed on the screen, and the value of the bet 
is multiplied by 2.5. The computer is sent to line 860 to add up 
the winnings. 

Line 820 checks to see if the player went over 21. If he did, 
the bet value is set to 0 and the computer is sent to line 860. 

Line 830 compares the player’s hand against the computer’s. 
If the player’s hand is worth more than the dealer’s, the player’s 
bet is doubled and the computer is sent to line 860. 

Line 840 checks to see if the dealer’s hand is less than 22 and 
the player’s hand is less than the dealer’s. If this is true, the player 
loses and the bet is lost. 

Line 850 checks to see if the dealer went over 21 and the player 
is under 22. If this is true, the player wins and the bet is doubled. 

Line 860 adds the amount of money the player has to the bet 
value and stores this amount in the first element of the player’s 
array. The value of the player’s hand is cleared from the array and 
the bet and player’s money is cleared from the screen. 

Line 870 places the amount of money the player has into B$. 
This amount is then printed in the last row on the screen. The loop 
continues for the next player. 

Line 880 clears the message from the top row of the screen 
and checks to see if either player has more than $1000. If either 
player has, the computer goes to line 950 to end the game. 

Line 890 checks to see if both players are out of money. If both 
are, the house wins and the computer goes to line 980 to end the 
game. 

Line 900 asks the players if they want to play again. The 
subroutine in line 1100 gets the entry. Press Y to play again, N 
to quit. 

Line 910 ends the program if the N key is pressed. 

Line 920 checks to see if more than 30 cards have been dealt. 
If so, the computer is directed to line 180 to shuffle the cards again. 

Line 930 sends the computer to line 190 to play another hand. 

Line 950 ends the game when one of the two players amass 
more than $1000. A message is printed on the screen. 
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Line 960 sets variable PL to two, then checks to see if player 
one has more money. If he does, the value of PL is changed to 1. 

Line 970 prints the winning player’s number on the screen and 
declares him a winner. 

Line 980 loops until the Start key is pressed; line 990 runs the 
program again. To quit the program at this point, press the System 
Reset key. 

Lines 1000-1040 print the cards on the screen. The value of 
the card must be stored in CARD before the computer uses this 
routine. The face values of the cards are taken from CARDS, the 
suit characters from SUITS. If the card value is 10, the computer 
will print zero after the one is printed on the screen. The computer 
returns to the main program after the card is printed. 

Lines 1050-1080 place the cards into the C array and shuffle 
them. The deck is shuffled five times. The card values are deter¬ 
mined by the whole number, the suit by the decimal value added 
to the card value. The cards are shuffled in the FOR-NEXT loop 
that counts backwards. A card is chosen at random from the cards 
available, and its value is stored in a temporary location. The last 
card available in the deck is moved to this card’s position. The card 
in the temporary location is moved to the last available location. 
Each time the loop is executed the number of cards in the deck 
is smaller by one than the previous time. This way all the cards 
are moved at least once in the shuffle. 

Lines 1100-1200 contain the input routine. The variable B 
points to the location in B$ where the input will be placed. B$ is 
set to a null string and the keyboard is opened. The computer waits 
at line 1110 until a key is pressed. The value of this key is com¬ 
pared to 155. This is the Return key; if it is pressed and there is 
something in B$, the keyboard is closed and the computer returns 
to the main program. The computer cannot return to the main pro¬ 
gram until a key is pressed. 

The value of K is also compared to 127. If it is greater than 
127, the inverse key was pressed. The computer subtracts 128 from 
this value and POKES location 694 with a zero to reset the flag 
to normal. If the value of the variable CS is 1 and the value of K 
is 126, the delete key will function and the entry will be erased from 
the screen and from B$. If the value of K is greater than 95, the 
CAPS key was pressed and the key was entered as lowercase. To 
correct this 96 is subtracted from the value of K giving it the up¬ 
percase value, and the location 702 is POKEd with 64 to restore 
it to uppercase. 
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If the value of CS is 1, the computer is looking for a number 
and only the number keys will be considered a valid entry. If the 
value of CS is 0, the computer will only allow the keys H, S, B, 
and D to be entered. When the value of CS is 2, only the keys Y 
and N are considered. The key that has been pressed is printed 
on the screen if it was a valid entry. The computer remains in this 
routine until a valid entry and the Return key is pressed. 

Lines 1210T280 count the value of the cards in the hands. All 
the variables are cleared. The variable X indicates which player’s 
hand is being tallied. The computer counts the first 13 cards. It 
is nearly impossible to have more than that number in this game. 
The value of the card is moved to variable I. If this value is 0, there 
are no more cards in this hand. The computer is sent to line 1270. 

Line 1220 checks if the value of this card is greater than 9. If 
so, it is worth 10 and this amount is added to the hand and alter¬ 
nate hand. The computer is sent to line 1250 to check how many 
aces are in this hand. 

Line 1230 checks to see if this card is an ace. If it is, this card 
is counted as 11 for the first hand value and 1 for the second or 
alternate hand value. Variable A is increased by one to count the 
number of aces in this hand. The computer is sent to line 1250 to 
check whether it should split the hand again. 

Line 1240 adds the value of the card to both hand values. 

Line 1260 continues the loop. 

Line 1270 checks the value of the variables X, TC, and V. If 
the value of X is greater than 0, this is the player’s hand and not 
the dealer’s. If the value of TC is 21, this could be a blackjack. 
If the value of V is 3, only two cards have been dealt and this is 
a blackjack. The value of TC is changed to - 1 to indicate a black¬ 
jack. If we left it as 21, we wouldn’t be able to tell at the end of 
the game if this was a blackjack or 21 made with several cards. 

Line 1280 sets the variable V to 13 so the computer will end 
the loop and return to the main program. 
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Chapter 2 



Grid Games 

Many of the programs in this chapter are versions of traditional 
pencil and paper games. Others have been developed specifically 
for use on the computer. They all have one thing in common: a grid 
of some sort is used as the playing field. The programs Boxes, Bat¬ 
tleships, and Treasure Hunt use a square grid with X and Y coor¬ 
dinates. Boxes is designed for young children; you don’t even have 
to name the locations you use. Battleships and Treasure Hunt re¬ 
quire you to name each location you are going to use. 

Hex is played on a grid with six-sided locations. The grid itself 
is a diamond. It takes a little more concentration to name the points 
in this game. 

In Cave Dwellers you are traveling through the grid and never 
actually see it. It is a decahedron, or ten-sided figure. Each room 
can lead to three others. You can find yourself going around in 
endless circles. 

BOXES 

Objective of the game: To complete more boxes than your 
opponent. 

Directions: This program is designed for two players. One 
player is blue and the other green. Each player takes turns at the 
keyboard moving the cursor from one dot to the next. The arrow 
keys move the cursor. When the cursor is over the dot you want 
to claim, press the space bar. To start the turn again, press the 
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Fig. 2-1. Flowchart for Boxes. 

Escape key. Once you have claimed one point, you may continue 
to claim a neighboring point. When two neighboring points have 
been claimed, the computer will connect the points. If you com¬ 
plete a box by connecting points, the box will be colored in your 
color. The game ends when all the boxes have been colored. Fig¬ 
ure 2-1 is the flowchart for this program, and Listing 2-1 is the code. 

Line 50 sets aside the memory needed for the SCORE array. 
This array keeps track of how many boxes each player has com¬ 
pleted. 

Line 60 sets the screen for graphics 21. This is graphics mode 
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5 with no text window. The dots are medium-sized in this mode. 

Line 70 changes the green color to a darker shade. The color 
value is set to one and and the computer prints a grid of dots on 
the screen. The dots are placed four rows and columns apart. The 
ROW variable indicates the row value and the COL variable in¬ 
dicates the column the dot will be plotted in. 

Line 80 continues the loop until all the dots are placed on the 
screen. 

Line 90 clears the array that counts how many squares have 
been colored. 
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Listing 2-1. Boxes. 


10 REM BOXES - FOR 2 PLAYERS - WHO CAN 
CONNECT THE MOST BOXES 
20 REM CHAPTER 2 - GRID GAMES 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1983 

50 DIM SC0RE(2):REM SET THIS ARRAY THE 
SCORE 

60 GRAPHICS 21:REM SET FOR MEDIUM SIZE 
GRAPHICS 

70 POKE 7 09»196 JCOLOR 1JFOR COL=20 TO 
60 STEP 4‘.FOR R0W==2 TO 42 STEP 4 JPLOT 
COL ,ROW J REM PLOT THE POINTS 4 APART 
80 NEXT ROW 5 NEXT COL J REM PLOT OUT THE 
ENTIRE SCREEN 
90 SCORE(1)=0JSCORE(2)=0 

ioo begcol=2o:encol=6o:begrow=2:enrgw= 

42 

110 REM PLAYER *1 TURN 
120 COLOR 2 5PLOT 16,42*COLOR 3JPLOT 64 
, 42 »C0L1 = 16 *C0L2=64 JF<0W1=42}R0W2=42JRE 
M PUT TWO CURSORS ON THE SCREEN 
130 F'LAYER = 1 5PCOL-COL1 SPROW-ROW1 ‘COLOR 
PLAYER + 'l 'PLOT COL1, ROW1JGOSUB 300JSCO 
RE(PLAYER)=SCORE(PLAYER)+S 
135 IF SCORE(1)+SCORE(2)=10 0 THEN 90 0 
140 PLAYER-2:PCOL=COL25 PR0W=R0W2J COLOR 
F'LAYER + 1 J PLOT C0L2 , R0W2 1 GOSUB 300 JSCO 
RE! < PLAYER) =SCORE (PLAYER) +S 
145 IF SCORE(1)+SCORE(2)=100 THEN 900 
150 GOTO 130 

3 0 0 QL.DCOL=PCOL i OL.DROW=PROW 5 S=0 
310 OPEN #2,4,0, n K:":GET +2,KEYtCL0SE 
♦25IF OLDCOL=COLl OR 0LDCBL=C0L2 THEN 
340 

32 0 IF KEY : =45 THEN F'R0W=PR0W-4: GOTO 38 
0 

330 IF KEY=61 THEN PR0W=PR0W+4JGOTO 38 
0 

34 0 IF KEY=43 AND OLDCOLOCOL1 THEN F'C 
0L=F’C0L-4 JGOTO 380 

350 IF KEY-42 AND OLDCOLOCOL2 THEN PC 
OL=PCOL+45GOTO 380 

36 0 IF KEY=32 AND QLDCOLOCOL1 AND OLD 
COLOCOL2 THEN 420 
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365 IF KEY=27 THEN COLOR :L JF'LOT F"COL,P 
ROW I F'OF' '.GOTO 120+PLAYER*10 
370 GOTO 310 

38 0 IF F‘ROW<BEGROW THEN F'ROW^BEGROW 
390 IF PROW>ENROW THEN PROW^ENROW 
TOO IF PCOLCBEGCOL.. THEN F’COL=BEGCOL 
T10 IF PCOL>ENCOL THEN PCOL==ENCOL 
T20 IF DLDCQL-CQL1 OR 0LDC0L=C0L.2 THEN 
COLOR 0 J PLOT OLDCOL.> OLDROW J GOTO TTO 
T30 COLOR 1J PLOT OLDCOL,OLDROW 
TTO COLOR PLAYER+1«PLOT POOL,PROW 
T5 0 IF KEY032 THEN 30 0 

T6 0 ol.dcol=pcol:ol.drow=prow 

T70 OLCOL. = PCOL:OLROW::=PROW:OPEN *2,T,0, 
"K J " J GET *2, KEY‘.CLOSE *2 
T8 0 IF KEY=T5 THEN PROW=PROW-T{GOTO 5T 
0 

T9 0 IF KEY=61 THEN PROW-F'ROW + T J GOTO 5T 
0 

50 0 IF KEY = T3 THEN F'COL=PCOL-T JGOTO 5T 
0 

510 IF KEY=T2 THEN PCOL=PCOL+TJGOTO 5T 
0 

515 IF OLDCOL=PCOL AND OLDROW=PROW THE 
N 525 

520 IF KEY=32 THEN 590 

525 IF KEY : =27 THEN COLOR 1 {PLOT F'COL.P 
ROW J PLOT OLDCOL,OLDROW J POP JGOTO 120+p 
LAYER*10 
530 GOTO T70 

5T0 IF PROWCBEGROW THEN PROW=BEGROW 
550 IF PROW>ENROW THEN PROW^ENROW 

56 0 IF PCOL<BEGCOL THEN F'COL^BEGCOL 

57 0 IF PCOL>ENCQL THEN PCOD=ENCOL 

580 IF AE'.S (F'COL-OLDCOL ) >T OR ABS<F'ROW- 
OLDROW ) >T THEN PCOL= : OLCOL J PROW=OLROW 5 G 
OTO T70 

585 REM WATCH FOR THE DIAGONAL 
590 IF PCOLOOLDCOL AND PROWOOLDROW T 
HEN PCOL=OLCOLJF'ROW=OLROWJGOTO T70 
595 REM IF BACK IN ORIGINAL POSITION, 
DON'T WORRY 

600 IF PCOLOOLDCOL AND PROWoOLDROW THE 
N 620 

610 LOCATE OLDCOL- SGN (OLDCOL-F'COL ) , OLD 
ROW -SGN <OL.DROW-F'ROW) , TAKEN 5 IF TAKENOO 
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THEN PCOI-~OL.COL{PROW=OLROW{GOTO 470 
620 COLOR 1JPLOT OLCOL,OLROW{COLOR F'LA 
YER+1 { PLOT OLDCOL , OL.DROW 
630 COLOR PLAYER+15PLOT POOL,PROW 
640 IF KEY032 THEN 470 
650 COLOR PLAYER+1{PLOT OLDCOL,OLDROWJ 
DRAWTO PCOL,PROW{COLOR It PLOT OLDCOL,O 
L.DROW t PLOT PCOL, PROW 

660 IF OLDCOLOPCOL THEN 760{REM LINE 
WENT ACROSS 

670 LOCATE OLDCOL+1,OLDROW,TAKEN{IF TA 
KEN :; = 0 THEN 710{REM NO BOX THIS WAY 
680 LOCATE PCOL+1,PROW,TAKEN{IF TAKEN = 
0 THEN 710{REM NO BOX HERE 
690 LOCATE PCOL+4,OLDROW-SGN(OLDROW-PR 
OW),TAKEN:IF TAKEN-0 THEN 710{REM NOT 
A BOX 

700 COLOR PLAYER+1{FOR X=1*3GN<PROW-OL 
DROW) TO 3*SGN (PROW-OL.DROW ) STEP SGN (P 
ROW-OLDROW){PLOT OLDCOL,OLDROW+X 
705 DRAWTO 0LDC0L+3,OLDROW+X{NEXT X{8= 
S + l 

710 LOCATE OLDCOL-1,OLDROW,TAKEN{IF TA 
KEN®0 THEN RETURN {REM NO BOX THIS WAY 

720 LOCATE PCOL-1,PROW,TAKEN{IF TAKEN® 
0 THEN RETURN {REM NO BOX HERE 
730 LOCATE PCOL-4,OLDROW-SGN(OLDROW-PR 
OW),TAKEN{IF TAKEN=0 THEN RETURN {REM 
NOT A BOX 

740 COLOR PLAYER+1{FOR X=1*SGN(PROW-OL 
DROW) TO 3#SGN(PROW-OLDROW) STEP SGN(P 
ROW-OLDROW) {PLOT OLDCOL,OLDROW+X 
750 DRAWTO 0LDC0L-3,OLDROW+XJNEXT X{S® 
S+l{RETURN 

760 LOCATE OLDCOL,OLDROW+1,TAKEN{IF TA 

KEN=0 THEN 800{REM NOT A BOX 

770 LOCATE PCOL,PROW+1,TAKEN{IF TAKEN® 

0 THEN 800{REM NOT HERE 

780 LOCATE OLDCOL-SGN(OLDCOL-PCOL),PRO 

W+4,TAKEN?IF TAKEN®0 THEN 800 

790 COLOR PLAYER+1{FOR X=1*SGN(PCOL-OL 

DCOL) TO 3*SGN(PCOL-OLDCOL) STEP SGN(P 

COL-OLDCOL){PLOT OLDCOL+X,OLDROW 

795 DRAWTO OLDCOL+X,0LDR0W+3{NEXT X{S® 

S + l 
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800 LOCATE OLDCOL,QLDROW-1,TAKEN:IF TA 
KEN=0 THEN RETURN {REM NO BOX 
810 LINE=810 5 LOCATE PCOL,PROW-1,TAKEN{ 
IF TAKEN=0 THEN RETURN 

820 LOCATE OLDCOL-SGN(OLDCOL-PCOL),PRO 
W-fl,TAKEN:IF TAKEN = 0 THEN RETURN 
830 COLOR PLAYER+l{FOR X=1#SGN<PCOL-OL 
DCOL.) TO 3*SGN (PCOL-OL.DCOL ) STEP SGN(P 
COL-OLDCOL){PLOT OLDCOL+X,OLDROW 
8•TO DRAWTO OLDCOL + X , 0LDR0W-3 ! NEXT X{S = 
S + :L {RETURN 

900 GRAPHICS 2{P0SITI0N 2,45? #6{"gaMe 
over ! " 

910 POSITION 2,6{? *6{"GREEN - "{SCORE 
(1 ) 

920 POSITION 2,8}? #6{"BLUE - "{SCORE( 
2 ) 

925 REM NEXT MESSAGE INVERSE 
930 POSITION 2,10 J ? *6{"PRESS start TO 
PLAY" 

940 IF PEEK(53279 ) 06 THEN 940 
950 GOTO AO 


Line 100 sets the variables that determine where the grid begins 
and ends on the screen. 

Line 120 uses the second color, green, for the first player and 
the third color, blue, for the second player. The two colored cur¬ 
sors are placed on the screen. The column that each cursor is in 
is stored in variables COL1 and COL2. The value for the row for 
each cursor is stored in variables ROW1 and ROW2. 

Line 130 begins the turn for the first player. The variable 
PLAYER is set to 1. This player’s cursor values are moved to PCOL 
and PROW. The color value is set to the value of PLAYER + 1. 
The computer then uses the subroutine in line 300 to move the cur¬ 
sor. When the computer returns to this line, the score for this player 
is updated. Line 135 checks to see if all 100 boxes have been filled 
in. If they have, the computer goes to line 900 to end of the game. 

Line 140 gives the second player his turn. The variables that 
hold the cursor position for this variable are placed into variables 
PCOL and PROW. The color value is changed for the second player 
and the computer uses the subroutine in line 300 to move the cur¬ 
sor. When the computer returns to this line, the score for the sec¬ 
ond player is updated. 
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Line 145 checks to see if all 100 boxes have been filled in. If 
they have, the computer goes to line 900 to end the game. 

Line 150 sends the computer back to line 130 to continue the 
same. 

Line 300 is the subroutine that moves the cursor on the screen. 
The values in PCOL and PROW are moved to variables OLDCOL 
and OLDROW. The S variable is set to 0. The value in this variable 
will change if a box is closed and colored in. 

Line 310 opens the keyboard for a read. The computer waits 
until a key is pressed, then the keyboard is closed. The value of 
OLDCOL is compared to the values of COL1 and COL2. The cur¬ 
sor is not on the grid if either of these values are equal. If the cur¬ 
sor is not on the grid, the only way to move it is to the right or 
left, depending on whose turn it is. The computer is sent to line 
340 and skips the lines that would allow the cursor to move up and 
down. 

Line 320 checks to see if the up arrow key was pressed. If it 
was, the value of PROW is decreased by 4 and the computer goes 
to line 380 to print the cursor in the new position.The rows and 
columns are four pixels apart. 

Line 330 checks to see if the down arrow was pressed. If it 
was, the variable PROW is increased by 4. 

Line 340 checks the value of KEY to see if the left arrow key 
was pressed. This line also compares the value of OLDCOL to 
COLl. The cursor cannot move to the left if it is the first player’s 
turn and the cursor is not on the grid. If the cursor can move to 
the left, the variable PCOL is decreased by 4. 

Line 350 checks to see if the right arrow key has been pressed. 
If it has, and if this is not the first turn for the second player, the 
cursor will move one dot to the right. The value of the PCOL 
variable is increased by 4. 

Line 360 checks to see if the space bar has been pressed. If 
it has and the cursor has moved, the computer goes to line 420 to 
change the color of the dot the cursor is on. If the variable OLDCOL 
is equal to COLI or COL2 the cursor has not moved, so there is 
no dot to change. 

Line 365 checks to see if the Escape key has been pressed. This 
is one way to change your mind about a dot you have captured. 
If this key has been pressed, the color value changes to 1, and the 
dot that was in the player’s color is changed back to the grid color. 
The POP command removes the return address from the stack and 
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the computer is sent back to the beginning of the program line for 
this player. 

Line 370 sends the computer back to line 310 for another key 
entry. 

Line 380 checks the value of the PROW variable with the value 
of BEGROW. If the value of PROW is less than the value of 
BEGROW, PROW is reset. This keeps the cursor on the grid. 

Line 390 checks to see if the new value in PROW would put 
the cursor off the grid on the bottom. If the value of PROW is 
greater than the value of ENROW the cursor would move off the 
grid, so PROW is reset to the bottom row of the grid. 

Line 400 compares the value of PCOL with the value of 
BEGCOL. If PCOL is less than BEGCOL, the cursoi is not on the 
grid. The value of PCOL is reset to BEGCOL. 

Line 410 checks to see if the new value for PCOL would place 
the cursor off the right side of the grid. If PCOL is greater than 
EDCOL the cursor would be off the grid, so PCOL is reset to keep 
it on the grid. 

Line 420 checks to see if the value of OLDCOL is the same 
as COL1 or COL2. If so, the color value is set to 0 so the cursor 
will be erased from the screen when it is moved to the new posi¬ 
tion. The cursor is erased by plotting the old position and the com¬ 
puter is sent to line 440. 

Line 430 colors the dot the cursor was over. 

Line 440 changes the color back to the player’s color. This is 
the color the dot in the new location will be changed to. The PLOT 
command places the cursor on the screen in the new position. 

Line 450 checks the value of the KEY variable again. If it is 
not 32, the space bar, the computer goes back to line 300 to move 
the cursor again. 

Line 460 stores the current position of the cursor in variables 
OLDCOL and OLDROW. 

Line 470 stores the values again in variables OLCOL and 
OLROW. The keyboard is opened again and the computer waits 
for a key to be pressed. The value of the pressed key is stored in 
the KEY variable and the keyboard is closed. 

Lines 480-510 are similar to lines 320-350. This time the com¬ 
puter does not have to check if the cursor can move in a direction 
because the cursor is already in the grid. The computer will have 
to make sure that the cursor stays on the grid. 

Line 515 checks to see if the cursor has moved; if it hasn’t, 
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it must skip the next program line because you cannot claim the 
same dot twice in the same turn. 

Line 520 checks to see if the space bar has been pressed. If 
it has, the computer is directed to line 590 to change the color of 
the dot and draw the line. 

Line 525 checks to see if the Escape key has been pressed. If 
it has, the color value is changed to one and the dot that has been 
changed and the dot the cursor is on are changed back to their 
original color. The POP command is used to remove the return ad¬ 
dress from the stack, and the computer is sent back to the program 
line that begins the turn for this player. 

Line 530 sends the computer to line 470 to wait for another 
entry. 

Lines 540-570 check the position of PROW and POOL to make 
sure the cursor will not be printed off the grid. If any value is out 
of range, it is reset to the edge of the grid. 

Line 580 now subtracts the new column value from the column 
value of the first cursor, and the new row value from the row value 
of the first cursor. If the difference between any two values is more 
than 4, the cursor cannot move and values of PROW and POOL 
are reset with the values of OLROW and OLCOL. The computer 
is sent back to line 470 to wait for a new entry. 

Line 590 checks to see if the new location is on the diagonal. 
If the column values and the row values are different, the cursor 
was not moved in a straight line. The values of PROW and POOL 
are reset with the values of OLROW and OLCOL. If the cursor 
was moved in a straight line, the row values or the column values 
would be the same. The computer is sent back to line 470 to wait 
for another entry. 

Line 600 checks to see if the cursor has been moved to its 
original position. This can happen the second time the cursor is 
moved; for example, on the first turn the first dot in the first row 
was captured. On the second turn the cursor was moved to the first 
row, second column. For one reason or another the player decided 
he would rather move to the first column, second row. The cursor 
would have to move back to the first column, first row before it 
could move up to the second row. The computer has to be able to 
determine whether this dot was already taken so that it couldn’t 
be taken twice. If this dot was taken already, the computer skips 
the next line and goes directly to line 620. 

Line 610 uses the LOCATE command to see if a line already 
exists where the player wants to make his line. By using the SGN 
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command and subtracting the new column and row positions from 
the old ones, the computer will point to the location just inside the 
box along the side where the line will made. If the pixel at this loca¬ 
tion is not a zero, then a line is there already and the values of PCOL 
and PROW are restored to the old values. The computer is sent 
to line 470 to wait for another turn. 

Line 620 changes the color of the dot where the cursor was 
to the original color, then uses the player’s color to plot the cursor 
in the original position. 

Line 630 plots the cursor in the new position. 

Line 640 checks again to see if the space bar has been pressed. 
If it hasn’t, the computer is sent to line 470 to wait for another entry. 

Line 650 draws a line from the first cursor to the second. Then 
the dots at the beginning and the end of the line are restored to 
their original color. 

Line 660 checks the values of the column variables. If these 
variables are not the same, the line was drawn horizontally on the 
screen rather than vertically. The computer is directed to line 760. 

Line 670 checks the pixel just to the right of the end dot of 
the line just drawn. If this pixel value is 0, there is no box drawn 
in that direction and the computer is directed to line 710. 

Line 680 checks the pixel to the right of the other end dot on 
the line just drawn. If this pixel is a zero, there is no box in that 
direction. 

Line 690 checks one more point to see if a box has been com¬ 
pleted. If this point also contains a zero, then no box has been com¬ 
pleted in this direction. 

Lines 700-705 fill in the completed box. The computer uses the 
FOR-NEXT loop to draw in the lines that color the box. Once the 
box is completely colored the S variable is increased by 1. This 
variable keeps track of how many boxes have been filled in. It is 
possible to complete more than one box in one turn. 

Lines 710-730 continue to look for a completed box based on 
the vertical line drawn on the screen. 

Lines 740-750 color the completed box, increase the variable 
S by 1 and return to the main program. 

Lines 760-780 begin to look for a box that has been completed 
with the horizontal line. If it cannot form a box, the computer is 
sent to line 800. 

Lines 790-795 fill in the completed box. The S variable in¬ 
creased by 1 to keep count of how many boxes have been com¬ 
pleted. 
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Lines 800-820 continue to look for a completed box. If no box 
can be found, the computer returns to the main program. 

Lines 830-840 color completed box. The S variable is increased 
by 1 and the computer returns to the main program. 

Lines 900-930 end the game. The game is over when all 100 
boxes have been filled in. The computer has been keeping track 
of the number of boxes each player has completed. The number 
of boxes each player has colored in is printed on the screen. 

Line 940 loops until the Start key is pressed. 

Line 950 sends the computer back to line 60 to play again. To 
end the program, press the System Reset key. 


BATTLESHIPS 

Objective of the game: To destroy the enemy’s ships before 
yours are destroyed. 

Directions: You play this game against the computer. You 
have ten ships to position on your grid. Each ship can be placed 
horizontally or vertically. Some ships are only one square long, 
others are two, three, or four squares long. The ships are displayed 
under the grid. The blue ship is the one you are trying to place 
on the grid. Enter the letter and the number of the square where 
you want the ship to begin. Then press the up arrow to place the 
ship vertically on the screen, or the right arrow to place the ship 
horizontally. Press the Return key after the letter and number are 
entered to validate the location, the delete key to erase the entry. 
After you enter the placement direction, press the Return key to 
validate that location, the delete key to enter a new one. If the ship 
will not fit at that location because it would be off the grid or on 
top of another ship, the program will tell you and you will be asked 
to place the ship again. After all your ships are placed, the com¬ 
puter will put its ships on its grid. 

To play the game you are asked to enter a letter and a number 
of a square. If you hit one of the computer’s ships, the screen flashes 
and the computer makes a sound. The computer in turn tries to 
hit your ships. When it does, the screen flashes and the computer 
makes a sound. The hits and misses are marked on the grid so you 
know where you have scored. The game is over when one player 
has hit all the opponent’s ships. Figures 2-2 and 2-3 is the flowchart 
for this program, and Listing 2-2 contains the program code. 

Line 50 sets aside the memory needed for the strings and ar¬ 
ray. The array CMP is used by the computer to keep track of which 
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Fig. 2-2. Flowchart for Battleships. 
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Listing 2-2. Battleships. 


10 REM RATTLE SHIPS FOR 2 PLAYERS - TR 

Y TO DESTROY THE ENEMY'S SHIPS BEFORE 

YOURS ARE DESTROYED 

20 REM CHAPTER 2 - GRID GAMES 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1983 

50 DIM CMP(10,10),HG$<100),DIR$<6),SHI 
P $(4),CG$(10 0) 

55 MISS-1080 5 HIT-1070JKEYBOARD=900 5 TIM 
E : =:L 0 0 0 1CL.SCR=1010:SHIP = 1020 !PACK=1090 
60 A=PEEK(106)-8JPOKE 204,AJPOKE 206,P 
EEK(756) 

70 FOR X-1536 TO 1555«READ DJFOKE X,D5 
NEXT X J REM ROUTINE TO MODE THE CHARACT 
ER SET 

80 DATA 104,162,4,160,0,177,205,145,20 
3,200,208,249,230,206,230,204,202,208, 
242,96 

90 GRAPHICS 17JQ=USR(1536)JPOKE 756,At 
REM' MODE IT AND USE IT 
100 CHARSET=A*256+24JFUR X=CHARSET TO 
CHARSET+103 JREAD D 5 POKE X , D JNEXT XJFOR 
X-CHARSET+184 TO CHARSET+239 
105 READ DJPOKE X,DJNEXT XJFOR X=CHARS 
ET+472 TO CHARSET + 487 5 READ D J POKE X,DJ 
NEXT X 

110 DATA 255,129,129,129,129,129,129,2 
55 

120 DATA 0,0,0,7,33,255,127,63,0,1,3,1 
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9.151.255.255.255 

130 DATA 0,0,128,130,202,255,255,255,0 

,0,0,28,176,254,252,248 

140 DATA 0,0,28,7,255,127,63,15,0,0,6, 

30,255,255,255,255,0,240,144,240,254,2 

52,248,240 

150 DATA 0,0,0,1,115,35,255,127,0,0,0, 

0,158,152,154,252 

160 DATA 0,0,0,48,16,16,124,254 

170 DATA 0,10,11,15,15,3,3,15,31,15,3, 

3.11.15.11.2 

180 DATA 0,8,12,14,127,95,95,127,15,63 
,63,31,31,15,15,15,31,31,63,47,47,14,1 
2,8 

190 DATA 0,4,22,23,31,15,7,15,7,31,7,1 

5.7.7.15.63.127.63.15.7.31.7.7.15.31.2 
3,23,7,7,15,6,4 

195 DATA 255,195,153,189,189,153,195,2 

55.255.195.165.153.153.165.195.255 
200 POSITION 0,0J? 16}"ecmputer h 

OMan":POSITION 0 ,1J ? *6}" "5 POSITION 

16,1!? *6!" " 

205 REM ALPHABET AND POUND SIGNS ARE I 
NVERSE 

210 FOR X=12 TO 3 STEP -1!POSITION 4-< 
X ~ 12 ) , X !'? #6 J X-2! NEXT X! POSITION 5,2!? 
*6! "abcdefghi j" 

22 0 FOR X = 1 TO 10!POSITION 5,X+2!? *6*, 
"#*#***###*"JNEXT X 

230 SQ :: -3! SH=1 ! POSITION 3,14!? *6J"$7.&' 
( ) * +, 

240 GOSUB CLSCR!POSITION 2,17!? #6!"en 
ter letter and nufiber" 

250 GOSUB KEYBOARD!IF KEYC65 OR KEY>74 
THEN 250!REM NOT A LETTER 
260 POSITION 9,19 5? #6 J CHR$ (KEY ) {"VIP 
l : =KEY-64 

27 0 GOSUB KEYBOARD 5 IF KEY = 126 THEN 240 


275 IF KEY<49 OR KEY>57 THEN 270 

280 POSITION 11,19 !F’2=KEY-48! ? *6JCHR$ 

(KEY) 

290 GOSUB KEYBOARD 5 IF KEY = 155 THEN 320 
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295 IF KEY=126 THEN 240 

30 0 IF P2=l AND KEY=48 THEN P2=10 5F'OSI 



TIGN 12,19:? »6;"0" 

310 GOTO 290JREM LOOP UNTIL RETURN KEY 
IS PRESSED 

320 POSITION 2,2i:? *6;"up or across": 
REM LOWER CASE INVERSE 
330 IF PEEK(764)=255 THEN 330:REM GET 
THE DIRECTION 

340 DIR=PEEK<764>tPOKE 764,255:iF DIR= 
14 OR DIR ; =7 THEN 360 
345 IF DIR=52 THEN 240 
350 GOTO 330 

360 DIR$="ACROSS":IF DIR=14 THEN DIR$ = 
"UP" 

380 GOSUB SHIP J POSITION 8,22:? *6:DIR* 
390 P=LEN(SHIP$)50N DIR/7 GOTO 400,430 
400 IF P1+SQ>10 THEN 420 
410 FOR X=Pl+4 TO P1+4+SQ5LOCATE X,P2 + 
2 ,ch::if CH=35 THEN NEXT XJPOSITION P1+ 

4 , F‘2 + 2 J ? #6; SHIP*: GO TO 460 
420 GOTO 240 

430 IF P2-SCK1 THEN 420 

440 FOR X : =P2 + 2 TO P2H2-S0) STEP -i:LO 

CATE Pl+4,X,CH:iF CH<>35 THEN 240 

450 NEXT X:FOR X=P2+2 TO P2+<2-SG> STE 

p -1 :position pi+4,x:? #6;ship*<p,p> :p 
=p-i:next x 

460 IF PEEK(764)-255 THEN 460 
470 EN-PEEK( 764) :POKE! 764,255MF EN = 12 
THEN 530 

480 IF ENOS2 THEN 460 

500 p=sq+:l:shif'$="":for X=1 TO P’.SHIP* 

(x,x>:="*":next x:on dir/7 goto 510,520 

510 POSITION Pl+4,P2+2:? *6JSHIP*:G0T0 
24 0 

520 FOR X=P2+2 TO P2+(2-SQ) STEP -lJPO 
SITION P1 + 4,X J ? #6 ?SHIP*(P,P):p=p-i:ne 
XT X J GOTO 240 

530 SH=SH+i:iF SH=2 OR SH=3 THEN POSIT 

ion 3,14 :? #6?" <>*":sq= 2 :goto 240 

:rem characters are inverse 

540 IF SH>3 AND SH<7 THEN POSITION 8,1 

4 :? #6:" +,":sq=i:goto 24o:rem char 

ACTERS ARE INVERSE 

550 IF SH>6 AND SH<11 THEN POSITION 12 

,14:? * 6 \" - h :sq=o:goto 24o:rem minu 

5 SIGN is inverse 
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560 GOSUB CLSCR l POSITION 14,14:? *6;" 

":POSITION 2,17:? #6 :"PLACING hy ship 
s ,, :sh=i:sg=3:rem starting ships 

570 GOSUB PACK 5 FOR X=1 TO 10:FOR U=1 T 

o io: cmp( x,o>=o :next o :next x:rem clea 

R THE ARRAYS 

580 P1<INT<RND<1)*10)+l5P2=INT(RND(1)* 

io)+i:dir=int<rnd<i)*2)+i:on dir goto 

590,620 

590 IF P1+SQ>10 THEN 580*.REM OUT OF SO 
UARES 

60 0 FOR X=P1 TO Pl+SGMF CMP < X,P2)=0 T 
HEN NEXT XtFOR X=P1 TO P1+SQ!CMP<X,P2) 

=sq+i:next xjgoto 65o:rem check 

610 GOTO 580:REM CAN'T PUT IT THERE 
620 IF P2-SGK1 THEN 580:REM OFF THE ED 
GE 

630 FOR X=P2 TO P2-SQ STEP -IMF CMP<P 

1,X)=0 THEN NEXT XJFOR X=P2 TO P2-SQ S 

TEP -1:CMP(PI,X)=SQ+1JNEXT XJGOTO 650 

640 GOTO 580:REM WON'T FIT 

650 SH=SH + 1MF SH=2 OR SH=3 THEN SQ=2J 

GOTO 580JREM PLACE THE NEXT TWO BOATS 

660 IF SH>3 AND SH<7 THEN SO=lJGOTO 58 

0 J REM AND THE NEXT THREE 

670 IF SH>6 AND SH<11 THEN SQ=OJGOTO 5 

80:REM AND THE LAST FOUR 

68 0 CG$<1)="#"5 CGt> < 100 )="#"!CG$(2)=CG$ 

:rem make the grid - POUND sign is inv 
ERSE 

690 FOR X=1 TO 10JPOSITION 5,X+2J? *6 ‘, 
CG$ < <X-1)*10 + 1,10*X):next X 
710 REM MESSAGE IS LOWER CASE AND INVE¬ 
RSE 

720 POSITION 2,17:? *6?"enter 3 letter 
and riUMber " J POSITION 9,19i? 

* 6 }" " 

730 GOSUB KEYBOARD?IF KEY<65 OR KEY>74 
THEN 730‘,REM NOT A LETTER 
740 POSITION 9,19:? *6}CHR$<KEY)J"\"5P 
l=KEY-64 

750 GOSUB KEYBOARD:IF KEY=126 THEN 720 
755 IF KEY<49 OR KEY>57 THEN 750 
760 POSITION 11,19JP2=KEY-48:? *6}CHR$ 
< KEY) 

770 GOSUB KEYBOARD?IF KEY=155 THEN 800 
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775 IF KEY-126 THEN 720 

78 0 IF P2=l AND KEY=48 THEN P2=10’.F'OSI 

TION 12,19:? #6} "0" 

790 GOTO 770tREM LOOP UNTIL RETURN KEY 
IS PRESSED 

800 IF CMP (PI ,F'2)>0 THEN GOSUE: HITtSHI 
P* ; ="_" JGMP(P1 ,P2)=-1. JGOTO 830 S REM SHIP 
$ IS INVERS UNDERLINE 

810 IF CMP(P1 ,P2X>0 THEN POSITION 9,1 
8J? #6;" "JGOTO 720 

820 GOSUE: MISS t SHIP$ = " A " 5 CMF' (F' 1,F'2 ) =-1 
JREM SHIP<1 IS INVERSE LIP ARROW 

830 POSITION P1+4,P2+2J? *6JSHIP*JGOSU 
B TIME: IF SHIP*=" A " THEN GOSIJB 1180’.GO 
TO 840JREM UP ARROW IS INVERSE 

831 HMFIT =HMHT+1J POSITION 16,1J? *6 J HMH 
T J IF HMIHT=20 THEN 1120 

832 GOTO 720 

8-0 0 FOR X = 1 TO 10’.POSITION 5,X+2J? *6J 

HG* ( ( X-l )#10+1, X*1 0 ) J NEXT X 

841 REM MESSAGE IS INVERSE 

845 POSITION 2,171? #6J M HIT ON 

"JPOSITION 7,185? *6{"POSITION "JPOS 

ITION 9,19’.? *6}" 

847 IF CMHT=0 THEN 864 

848 FOR X=1 TO 10JFOR V=1 TO 10JREM FI 
ND A HIT 

850 GOSUE: 1170’.IF CH<>95 THEN POSITION 
0,20 JGOTO 860 

852 IF V<10 THEN V=V+1 J GOSUE: 11705V=V- 
1JIF CH<>94 AND CH<>95 THEN V=V+lJGOTO 
862 

854 IF V>1 THEN V=V-1 J GOSUE: 1170JV=V+1 
JIF CH<>94 AND CH<>95 THEN V=V~1JGOTO 
862 

856 IF X<10 THEN X=X+lJGOSUB 1170JX=X- 
1JIF CH<>94 AND CH<>95 THEN X=X+1JGOTO 
862 

858 IF X>1 THEN X=X-1J GOSUE: 1170JX=X+1 
JIF CHO-94 AND CH<>95 THEN X=X-1 JGOTO 
862 

860 NEXT V J NEXT XJGOTO 864 
862 P1=VJP2=XJGOTO 865 

864 P1<INT<RND< 1 )*:L0 > + 1 JP2=INT(RND( 1) * 
10 )+l 

865 POSITION 9,19 J ? #6J" "JLOCATE 
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P1+4,P2+2,CH5IF CH=95 OR CH=94 THEN 86 

4 

870 POSITION 9,195? *6}CHR$(P1+64)5"\" 
5P2JIF CH=35 THEN GOSUB MISSJSHI.P$~" A " 

5 GOTO 89 0 

880 GOSUB HIT 5SHIP*="_"5CMHT=CMHT+1 

890 GOSUB TIME5POSITION Pl+4,P2+2:? *6 

;ship$ 

891 IF SHIP$=" A " THEN GOSUB PACKtGOTO 
690 

892 IF SHIP* = ,, _" THEN POSITION 0,15? * 
6JCMHTSIF CMHT--20 THEN 1110 

895 GOTO 8■OS 

900 OPEN *2,4,0,"K5":REM READ THE KEYB 
OARD 

910 GET *2,KEY:REM GET THE KEY BEING F 
RESSED 

920 IF KEY=155 OR KEY=126 THEN 960 

930 IF KEY>127 THEN KEY=KEY-128JPOKE 6 

94,0* REM SET FOR NORMAL. VIDEO 

940 IF KEY>95 THEN KEY=KEY-32JPOKE 702 

,64:REM SET FOR UPPER CASE 

950 IF KEYC48 OR KEY>74 THEN 910SREM N 

OT A GOOD KEY 

960 CLOSE *2:RETURN 

1000 FOR TME=1 TO 200JNEXT TMEJRETURN 

1010 FOR X = 17 TO 22:POSITION 2,XJ? #6*, 

" ‘“.NEXT X :RETURN 

1020 ON DIR/7 GOTO 1030,1050 

1025 REM ALL THE CHARACTERS FOR THE SH 

IPS ARE INVERSE 

1030 GOTO 1030+SH 

1 031 SHIP*="*%& ' " ’.RETURN 

1032 SHIF'$ = " < )#" 5RETURN 

1033 SHIP$ = "()*"5RETURN 

1034 SHIP$="+,"5RETURN 

1035 SHIP$="+ , "5 RETURN 

1036 SHIF‘$ : ="+ , " :RETURN 

1037 SHIF‘$ = "-" :RETURN 

1038 SHIP$="~":RETURN 

1039 SHIP'$ = "~" J RETURN 

1040 SHIP$ = "-"J RETURN 

1050 GOTO 1050+SH 

1051 SHIP$="=>?e":RETURN 

1052 ship$= m :j<":return 

1053 ship*== m : ;<":return 
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1 054 SHIP$ = " . /" J RETURN 

1055 SHIP*®' 1 */" {RETURN 

1056 SHIPS®"4/"5RETURN 

1057 SHIP*®"-" ‘.RETURN 

1058 SHIP*®"-”;RETURN 

1059 SHIPS®"-"5 RETURN 
1 060 SHIPS®"-"5RETURN 

1070 FOR X®1 TO 10{POKE 712,X*10{SOUND 
0,100,4,15: NEXT X 5 POKE 712,0**SOUND 0, 
0 , 0,0 

1075 RETURN 

1 080 FOR X=:L TO lOJSOUND 0 , X* 1 0,1 0 ,10 { 
NEXT X:SOUND 0,0,0,0JRETURN 

1090 c=i:for x®i to io:for v=i to io:l 
OCATE V+4,X+2,CH:HG$(C,C)=CHR$<CH):c=c 
+15 NEXT 9 5 NEXT X J REM PACK THE GRID 
1100 RETURN 

1110 POSITION 2,17S? #6 > "I WIN!!! 

"{GOTO 1130 

1120 POSITION 2,17*? *6}"YOU WIN!!!:. 
INVERSE 

1130 POSITION 9,195? #6J"press start": 

REM START IS INVERSE 

1140 IF PEEK <53279)06 THEN 1140 

1150 hmht=o:cmht=o:gosub clscrjgoto 20 
0 

1170 LOCATE V+4,X+2,CH5RETURN 
1180 c=i:for X = 1 TO 10 5 FOR V=1 TO io:l 
ocate v+4,x+2,ch:cg$<c,c>®chr*<ch> :c=c 
+ i:ne:xt vjnext x:return :rem pack grid 


locations have hits and misses. HG$ contains the grid for the human 
player’s ships. DIR$ holds the words for the up and down direc¬ 
tions. SHIPS holds the characters for the ships, and CG$ contains 
the grid for the computer’s ships. 

Line 55 sets several variables to line numbers used frequently 
in the program. This saves on memory in the program since 
numbers are stored as several bytes and variables are only one byte. 
MISS is the routine used when a ship is not at that point on the 
grid. HIT is the routine used when a ship is hit. KEYBOARD sets 
the key that was pressed. TIME is a timing loop. CLSCR clears 
the screen. SHIP prints the ship on the screen, and PACK takes 
the grid on the screen and makes it into one long string. 

Line 60 finds out how much memory is in the computer by 
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PEEKing at location 106. In this program we subtract eight, or IK, 
from this amount. As the screen only occupies 513 bytes, the 
character set can fit above the screen area. This value and the begin¬ 
ning address of the character set in ROM is stored in locations 204 
and 206. This information will be used in the assembly language 
subroutine that moves the character set from ROM into RAM. 

Line 70 contains the FOR-NEXT loop that moves the code for 
the assembly language subroutine from the data line into memory 
locations 1536-1555. 

Line 80 contains the decimal codes for the assembly language 
subroutine that moves the character set from ROM into RAM. 

Line 90 changes the screen to graphics 17; this is graphics one 
with no text window. The computer uses the USR command to ex¬ 
ecute the assembly language subroutine that begins in memory loca¬ 
tion 1536. When the computer returns to this line it POKES the 
address of the beginning of the character set in RAM into location 
756. 

Line 100 sets the variable CHARSET to the first byte of the 
third character in the character set. This is the first character we 
will change. In all we will change 24 characters in this program. 
The first FOR-NEXT loop changes 13 characters in the character 
set: all the characters from the pound sign (#) to the slash (/). We 
need numbers in this program,so we will leave the next 10 
characters intact. The second FOR-NEXT loop changes the seven 
characters following the numbers. 

Line 105 contains the third FOR-NEXT loop, changing four 
more characters. The reason the characters are changed in different 
parts of the character set is because we want to keep the numbers 
and the letters intact. 

Lines 110-195 contain the codes for the new characters. 

Line 200 prints the screen heading. The computer is playing 
against the human. 

Line 210 prints the numbers and the letter for the grid. The 
grid is centered on the screen. The numbers are printed in rows 
3-12, so the loop starts at 3 and ends with 12. We want the rows 
numbered from 1 to 10, and we want the numbers to line up prop¬ 
erly. The Position command contains an equation as part of the 
column. The computer looks at the value of X and compares it to 
12. If X is 12, the equation X = 12 is true and the equation is equal 
to -1. If X is not 12, the equation is false or 0. When the computer 
subtracts the value of X = 12 from four the numbers line up cor¬ 
rectly. Four minus zero is four. The numbers from 1 to 9 are printed 
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in the fourth column. Four minus one is three, so the number 10 
is printed in the third column. This is faster than using an IF- 
THEN statement to line up the numbers. The number that will be 
printed on the screen is two less than the value of X. Remember, 
X began at three and we want to label the rows from 1 to 10. After 
the numbers are printed, the computer prints the letters across the 
top of the grid. 

Line 220 contains another FOR-NEXT loop. This loop prints 
10 rows of pound signs on the screen. The pound sign has been 
changed into the grid character. 

Line 230 sets the SQ variable to 3. This is one less than the 
number of squares the first ship will use. The second variable, SH, 
is the ship number that will be placed. The computer then prints 
a set of characters on the screen. The first four characters should 
be in inverse video. The rest of the characters are normal video. 
The characters are grouped four, three, two, and one. These are 
the four ships that will be placed on the grid. 

Line 240 uses the subroutine in line 1010, the clear screen 
routine. The whole screen is not cleared, only the lines under the 
grid. The message that tells the player to enter a letter and a 
number is printed on the screen. 

Line 250 uses the subroutine in line 900 to get an entry from 
the keyboard. If the value of the key entered is not between 65 
and 74 the key was not a letter and the computer repeats this line. 
This line loops until a letter key is entered. 

Line 260 prints the entered letter and a backslash. The value 
of KEY less 64 is stored in variable PI. We subtract 64 from the 
value of KEY because we want to convert the letter into a column 
number. The letter A has the value 65. It is the first column in the 
grid. It is easier to locate the grid of the letter value is changed 
into a number. 

Line 270 uses the subroutine at line 900 again to get the next 
entry. This time we are looking for a number. If the value of the 
key pressed is 126, the Delete key was pressed and the computer 
goes to line 240 to erase the letter value that was entered and start 
again. 

Line 275 checks to see if a number key was pressed. If it was 
not, the computer goes back to line 270 to get another key. The 
computer loops between these two lines until a number key or the 
Delete key is pressed. 

Line 280 prints the number of the entered key on the screen. 
This time we subtract 48 from the value of KEY. The one key pro- 
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duces a value of 49. To get the actual key, we must subtract 48 
from the key’s value. 

Line 290 uses the keyboard routine at 900 again. This time the 
computer is looking for a Return key. If the value of KEY is 155, 
the Return key was pressed and the computer goes to line 320 to 
place, the ship. 

Line 295 checks the value of KEY to see if the delete key was 
pressed. If it was, the value of KEY would be 126 and the com¬ 
puter would go to line 240 to get an entirely new entry. 

Line 300 checks to see if a zero was entered. The only time 
the computer will accept 0 is if the last key entered was 1. If it 
was, the value of P2 is changed to 10 and the zero is printed on 
the screen. 

Line 310 sends the computer back to line 290. The computer 
loops through these lines until the Return key or the delete key 
is pressed. 

Line 320 sets the second part of the message. Now the com¬ 
puter needs to know how to place the ship on the screen, horizon¬ 
tally or vertically. A message is printed on the screen. 

Line 330 looks at location 764 to see if a key has been pressed. 
If one has not, the value of 764 remains 255. This value changes 
once a key has been pressed. 

Line 340 places the value of location 764 into the variable DIR. 
The location 764 is then changed back to 255. If the value of DIR 
is 7 or 14 an arrow key has been pressed and the computer is sent 
to line 360. 

Line 345 checks to see if the value of DIR is 52. If it is, the 
Delete key has been pressed and the computer goes to line 240 to 
get a new entry. 

Line 350 sends the computer back to line 330. The key that 
was pressed cannot be used in this routine. The computer loops 
through these lines until the up arrow, right arrow, or Delete key 
is pressed. 

Line 360 places the word ACROSS into DIR$. Then it checks 
the value of DIR. If this value is 14, the computer changes the word 
in DIR$ to UP. 

Line 380 sends the computer to the subroutine that begins at 
line 1020. If the correct ship is placed into SHIPS and the com¬ 
puter prints the contents of DIRS on the screen. 

Line 390 finds the length of the ship and sends the computer 
to the correct routine depending on which direction the ship should 
be printed in. 
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Line 400 adds the value of PI, the column position, to the 
number of squares this ship will take up. If this sum is greater than 
10 the ship will not fit on the grid. The computer is sent to line 
240 to try again. 

Line 410 places the ship on the grid. The computer adds 4 to 
the value of PI because the first grid square is in the fifth column 
of the screen. Before the computer prints the ship on the screen 
it looks at that location on the screen to see if the square is empty. 
If it is, that location will contain a value of 35. If all the squares 
are empty the loop will be completed and the ship will be printed 
on the screen. The computer is sent to line 460 to continue placing 
ships on the screen. 

Line 420 is executed if the FOR-NEXT loop in the previous 
line reaches a square that is not empty. The computer is sent to 
line 240 to clear the screen and start again. 

Line 430 starts the routine that places a ship vertically on the 
grid. This time the computer subtracts the number of squares this 
ship will need from the value of the first square or row in which 
the ship will be printed. If the difference is less than one, the ship 
will not fit on the grid and the computer is sent to line 240 to get 
another entry. 

Line 440 begins at the row value P2 + 2 and continues up the 
grid the number of squares this ship needs. To figure out the last 
square the computer should look at, the value of SQ is subtracted 
from 2; then this difference is added to P2. The computer looks 
at the grid to see if the square is empty. If it is, the variable CH 
will be 35. If CH is not 35, the computer is sent to line 240 to trv 
again. 

Line 450 continues the loop. If the loop is completed the com¬ 
puter begins another loop to print the ship, one character at a time, 
on the screen. Since we are printing from bottom to top on the 
screen, each element of the string must be printed separately. 

Line 460 looks at location 764 to see if a key has been pressed. 
This location will contain 255 until a key is pressed. 

Line 470 stores the value of location 764 in the variable EN. 
This location is reset by POKEing it with 764. If the value of EN 
is 12, the Return key has been pressed and the computer goes to 
line 530 to continue placing ships on the screen. 

Line 480 sends the computer back to line 460 for another key 
input if the value of EN is not 52. 

Line 500 is executed if the Delete key was pressed. The Delete 
key has a value of 52. The bottom of the screen is cleared. The 
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value of P is one more than the value of SQ. P now contains the 
actual number of squares the ship comprised. The string SHIP$ 
is filled with pound signs. The computer is directed to the correct 
line, depending on which way the ship was printed on the screen. 

Line 510 prints the cleared grid squares on the screen if the 
ship was printed horizontally. The computer is sent to line 240 to 
get a new position. 

Line 520 prints the empty squares one at a time up the column 
on the grid. Once the ship is erased, the computer goes to line 240 
for a new entry. 

Line 530 clears the lower portion of the screen. The variable 
SH is increased by 1. This value is checked to see if it is 2 or 3. 
If it is, the first ship is erased and the characters for the second 
ship are printed in inverse video. The variable SQ is changed to 
2 and the computer is sent to line 240 for a new entry. 

Line 540 checks to see if SH is between 4 and 6. If it is, the 
second ship is erased and the characters for the third ship are 
printed on the screen in inverse video. The variable SQ is set to 
1 and the computer is sent to line 240 for a new entry. 

Line 550 checks to see if the value of SH is between 7 and 10. 
If it is, the third ship is erased from the screen and the fourth ship 
is printed in inverse video. The computer goes to line 240 to place 
these ships. 

Line 560 clears the lower portion of the screen, erases the last 
ship and prints a message on the screen. The variables SH and SQ 
are reset. 

Line 570 uses the subroutine in line 1090 to pack the grid 
characters into one string. When the computer returns to this line 
it clears the CMP array from any information that may be stored 
in it. The computer does not clear an array when the program is run. 

Line 580 chooses three random numbers. The first number, 
which is placed in the variable PI, is the column position of the 
ship. The second number, placed in P2, is the row position, and 
the third number is the direction in which the ship will be placed 
on the screen. Based on the value of the variable DIR, the com¬ 
puter will go to either line 590 or line 620. 

Line 590 is used if the value of DIR is 1. The ship will be placed 
horizontally if there is enough room on the grid and the ship will 
not run into another ship. The value of PI, the column position, 
is added to the value of SQ. If the sum is greater than 10, the ship 
will not fit on the grid and the computer goes back to line 580 to 
pick another set of numbers. 
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Line 600 checks each element of the CMP array to see if there 
is a number in the element. If there isn’t, the loop continues until 
all the elements the ship would cover are checked. Next the com¬ 
puter places the value SQ + 1 into the elements of the array. This 
value is the ship number that is placed in the array. It is also the 
number of squares this ship occupies on the grid. After the ship 
is placed in the array, the computer is sent to line 650 for the next 
ship. 

Line 610 sends the computer back to line 580 if the ship can¬ 
not be placed in this location on the grid. 

Line 620 is used when the variable DIR is 2. The ship will be 
placed vertically on the grid. The number of squares the ship will 
take up is subtracted from the row value in P2. If this difference 
is less than 1, the ship will not fit on the grid and the computer 
is sent back to line 580 to pick a new location. 

Line 630 checks each element of the CMP array that the ship 
will be positioned in to see if it is empty. If it is, the value of the 
element is 0. If the loop is completed, the value of SQ + 1 is placed 
in each element of the array that will contain the ship. The com¬ 
puter is sent to line 650 to continue the ship placement. 

Line 640 sends the computer back to line 580. The ship will 
not fit in the chosen position because another ship is already there. 

Line 650 checks the value of SH to see if it is 2 or 3. If it is, 
the value of SQ is changed to 2. The computer is sent to line 580 
to place the new ship. 

Line 660 checks to see if the value of SH is between 4 and 6. 
If it is, the value of SQ is 1. The computer goes to line 580 to place 
these ships. 

Line 670 checks the value of SH to see if it is between 7 and 
10. The value of SQ is 0 and the computer places the last four ships. 

Line 680 clears the computer’s grid string and fills every ele¬ 
ment of it with pound signs or the empty grid squares. 

Line 690 prints this empty grid on the screen.The player is look¬ 
ing at the computer’s grid. At this time it is empty, because the 
player has not made an attempt to hit the computer’s ships. Once 
the player starts to enter possible positions of the computer’s ships, 
the grid will contain marks that indicate a hit or a miss. 

Line 720 prints a message on the screen. The player is asked 
to enter a letter and a number. This is the position of a possible ship. 

Line 730 uses the keyboard subroutine to set the value of a key 
that was pressed. If the value of the variable KEY is not between 
the values of 65 and 74, the key pressed was not a letter. The com- 
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puter will loop at this line until a letter key is pressed. 

Line 740 prints the value of the key on the screen. The back¬ 
slash is printed after the letter. A value 64 less than the value of 
the key is stored in variable PI. This is the column value. 

Line 750 uses the keyboard subroutine to set the next key value. 
If the value of the key pressed is 126, the Delete key has been 
pressed and the computer goes back to line 720 for another entry. 

Line 755 checks to see if the value of KEY is a number value. 
The number values are between 48 and 57. This line does not want 
a key whose value is 48 because that is the 0. 

Line 760 places the number value of the key in the variable 
P2 and prints this number on the screen. 

Line 770 uses the keyboard subroutine to get another key en¬ 
try. If the value of KEY is 155, the Return key has been pressed 
and the player is satisfied with the position. The computer is sent 
to line 800. 

Line 775 sends the computer to line 720 if the value of KEY 
is 126, the Delete key. 

Line 780 checks to see if the value of P2 is 1 and the value 
of KEY is 0. This is the only time the zero key is accepted. The 
value of P2 is changed to 10 and the zero is printed on the screen. 

Line 790 sends the computer back to line 770. The computer 
will loop through these lines until the Return key is pressed. 

Line 800 looks at the value of the CMP array at the position 
indicated by the variables PI and P2. If the value of this element 
is greater than zero, the player scored a hit. The underline character 
is placed into SHIP$ and the element of the array is changed to 
a negative one. The computer is sent to line 830. 

Line 810 erases the position the player entered if the value of 
the new positioning CMP is not a zero. This means that the player 
has already entered that position and it was a hit or a miss. Either 
way, the computer placed a - 1 value in that location. The com¬ 
puter is sent back to line 720 to get a new location. 

Line 820 sends the computer to the MISS subroutine. The con¬ 
tents of SHIP$ are changed and the contents of the element of the 
array are changed to a -1. 

Line 830 prints the contents of SHIPS on the screen at the loca¬ 
tion in the grid entered by the player. This can be the hit character 
or the miss character depending on whether a ship was hit. The 
timing subroutine is used, then if the location was a miss the com¬ 
puter uses the subroutine in line 1180 to pack the grid into one 
string. The computer uses this routine only after the player has 
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missed. The computer goes to line 840 for the computer’s turn. 

Line 831 adds one to the value of HMHT. This is the number 
of hits the player has. This value is printed under HUMAN on the 
screen. If the value of HMHT is 20, all the ships have been hit and 
the player wins. The computer is sent to line 1120. 

Line 832 sends the computer to line 720 for another input. The 
player continues to play as long as he gets hits. When he misses, 
then it’s the computer’s turn. 

Line 840 begins the computer’s turn. The contents of HG$ are 
printed on the screen. This is the player’s grid. The hits and misses 
the computer made are stored on this grid along with the player’s 
ships. 

Line 845 prints a message on the screen. 

Line 847 checks the value of the variable CMHT. If it is a zero, 
the computer has not hit the player’s ship and the computer is sent 
to line 864 to pick a random position in the grid. 

Line 848 begins two FOR-NEXT loops. The computer will 
check each element of the player’s grid to see where a hit was made. 
The computer is very honest. It only looks to see if that square 
was a hit. It does not look to see if there is a ship in that position. 

Line 850 uses the subroutine in line 1170 to get the value of 
the grid square. If the value is not 95 (a hit), the computer goes 
to line 860 to continue the loop. 

Line 852 checks to see if the value of V is less than 10. If it 
is, the computer checks the value of the square in the column after 
the hit. If this square is not a hit or a miss, the computer goes to 
line 862 to hit this location. 

Line 854 checks to see if the value of V is greater than 1. If 
it is the column before this one can be checked. If this square is 
not a hit or a miss, the computer goes to line 862 and hits this 
location. 

Line 856 now looks at the squares under the location that was 
hit. If this location is not a hit or a miss, the computer goes to line 
862 and hits it. 

Line 858 checks the squares above the one that has been hit. 
If this square does not contain a hit or a miss, the computer goes 
to line 862. 

Line 860 continues the loops. If the computer cannot find a 
square to hit, the computer goes to line 864 to pick a random 
location. 

Line 862 transfer the values of V and X to PI and P2. The com¬ 
puter goes to line 865 to hit this location. 
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Line 864 chooses two random numbers as a position to hit. 

Line 865 checks this position to make sure it does not contain 
a hit or a miss. If it does, the computer goes to line 864 and chooses 
another location. 

Line 870 prints the position that will be hit on the screen. If 
the value of CH is 35, the location did not contain a ship and it is 
a miss. The computer is sent to the MISS subroutine, then places 
the miss character into SHIP$. The computer is sent to line 890 
to print the character on the screen. 

Line 880 uses the hit subroutine, then prints the hit character 
on the screen. The computer’s score is increased by one. 

Line 890 uses the timing subroutine. The hit or miss character 
is printed on the screen. 

Line 891 sends the computer to the subroutine that packs the 
grid into a string if the computer missed the ship. The computer 
then goes to line 690 for the player’s turn. 

Line 892 prints the computer’s new score on the screen. If the 
variable CMHT is equal to 20, the computer has hit all the player’s 
ships and won the same. The computer is sent to line 1110 to end 
the same. 

Line 895 sends the computer to line 848 to try to hit another 
ship. 

Line 900 begins the keyboard routine. The keyboard is opened 
to be read. 

Line 910 waits for a key to be entered. The value of the key 
is stored in the KEY variable. 

Line 920 checks to see if the Return key or the Delete key was 
pressed. If it was, the computer goes to line 960. 

Line 930 checks to see if the value of KEY is greater than 127. 
If it is, 128 is subtracted from the value of KEY and the flag is 
restored for normal video by POKEing location 694 with a zero. 

Line 940 checks to see if the value of KEY is greater than 95. 
If it is, the CAPS key was pressed. The computer subtracts 32 from 
the value of KEY and POKEs location 702 with 64 to restore the 
computer to uppercase. 

Line 950 checks to see if the key is a number or letter key. 
If it isn’t the computer goes back to line 910 to set another key. 

Line 960 closes the keyboard and sends the computer back to 
the main program. 

Line 1000 is the timing loop. Change the value 200 to make 
the loop longer or shorter. 

Line 1010 clears the bottom portion of the screen. 
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Lines 1020-1060 place the correct characters into SHIP$. The 
line that the computer uses depends on the value of DIR. If the 
value is 7, the first ten lines are used to place the characters that 
represent the ship into SHIP$. If the value of DIR is 14, the com¬ 
puter uses the second set of ten lines for the ship’s characters. 

Line 1070 makes the hit sound. 

Line 1080 makes the miss sound. 

Line 1090 uses the LOCATE command to take each element 
of the grid and place it in HG$. By storing it this way, it takes up 
less room than an array and is easily taken apart when it is printed 
on the screen. 

Lines 1110-1130 are the end of the game. Which message will 
be printed on the screen depends on who reaches 20 points first. 

Line 1140 loops until the Start key is pressed. 

Line 1150 clears the variables that hold the scores, clears the 
bottom portion of the screen and goes to line 200 to play another 
game. 

Line 1170 is the LOCATE command, used regularly to see what 
is on that location on the screen. 

Line 1180 packs the computer’s grid into CG$. 

HEX 

Objective of the game: To connect a series of hexagons from 
one end of the grid to the other before your opponent does. 

Directions: The screen displays a diamond containing hexes. 
A cursor appears at the bottom of the screen. You can move this 
cursor by pressing the letter keys in the center of the keyboard. 
The Y key moves the cursor up, T moves the cursor up and left, 
U moves the cursor up and right. The N key moves the cursor 
down, B down and to the left, and the M key moves the cursor down 
and right. Press the H key to claim the hex location. 

The game alternates between two players. One player is light 
purple, the other dark purple. The player number is displayed at 
the bottom of the screen under the cursor. When the player presses 
H to claim a square, the computer makes a sound and prints that 
player’s character in that location. The second player now has a 
turn. Each location can only be occupied by one player. The first 
player to complete a path from one side of the grid to the other 
is the winner. The path must connect that player’s borders. For 
example, if player one is light purple, his path must begin at the 
lower right side and end at the upper left side. Player Two, on the 
other hand, is dark purple: his path must begin at the lower left 
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Fig. 2-4. Flowchart for Hex. 
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Fig. 2-5. Character set for Hex. 


side and end at the upper right side. 

When one player makes a complete path the computer will 
display the winning message on the screen. Press the Start key to 
play again. Press System Reset to quit. Figure 2-4 is the flowchart 
for this program, and Fig. 2-5 shows the character set. Listing 2-3 
is the code. 

Line 50 sets aside the memory needed for the string and ar- 
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Listing 2-3. Hex. 


10 REM HEX - TRY TO MAKE A CONNECTING 
LINE TO THE OTHER SIDE BEFORE YOUR OPP 
ONENT 

20 REM CHAPTER 2 - GRID GAMES 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
TO REM COPYRIGHT 1983 
50 DIM GRID<9,9) ,H*<T> 

60 GRAPHICS 0JDLIST=PEEK(560>+PEEK(561 
) *256 tF'OKE DLIST+3,68 »FOR X=6 TO 2T5PO 

ke dlist+x,t:next X 

70 FOR X=25 TO 28{POKE DLIST+X,6{NEXT 
XJREM CHANGE DISPLAY LIST TO ANTIC T A 
ND GRAPHICS 2 

80 A=PEEK( 106)-85POKE 204,A{POKE 206,P 
EEK(756){POKE 708,7T{POKE 709,100{POKE 
710,38 

90 FOR X-1536 TO 1555{READ VJPOKE X,D5 
NEXT X 5 REM MODE CHARACTER SET 
100 DATA 10T,162,T,160,0,177,205,ITS,2 
03,200,208,2T9,230,206,230,20T,202,208 
,2T2,96 

110 Q=USR(1536){POKE 756,A{REM MODE IT 
& USE IT 

120 CHARSET=A*256+520{FOR X=CHARSET TO 
CHARSET + l 03 {READ D{POKE X,D‘.NEXT X 

130 DATA 3,3,12,12,T8,T8,192,192,192,1 
92,T8,TO,12,12,3,3,255,255,0,0,0,0,0,0 
,85,85,85,85,85,85,85,85 

131 DATA 87,87,92,92,112,112,192,192,3 
,3,13,13,53,53,213,213,23T,23T,58,58,1 
T , 1T , 3,3 

132 DATA 170,170,170,170,170,170,170,1 
70,192,192,176,176,172,172,171,171 

133 DATA 255,255,0,0,16,16,16,8T,8T,8T 
,8T,16,16,16,0,0 

13T DATA 255,255,0,0,32,32,32,168,168, 
168,168,32,32,32,0,0 

1T0 RESTORE 1TO{F0R X=1 TO T{READ D{H$ 
(X,X)=CHRiMD) {NEXT X {DAT A 1,3,2,32 
150 R=0 J G = 1{FOR X=17 TO 1 STEP -2{G1=G 
{POSITION X,R{? H${{G1=G1-1{IF G1=0 TH 
EN 170 

160 ? H$ } {G1—G1 -15 IF GlOO THEN 160 
170 R=R+1{G=G+1{NEXT X{G=G-3 
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ISO FOR X=T TO 2 STEP -1I H$ < X , X ) = H*< X- 
1,X~1){NEXT XJH$(X,X)= M "I REM MOVE THE 
SHAPE 

190 gi=g:position x,rj? chr$(2);h$;:g= 

G1-1IIF G1 = 0 THEN 210 

200 ? h$;:gi=gi-i:if gioo then 200 
210 ? M ;chr$(d:r=r+i:g=g+ 2 :for x=i 
to 4 :read v:h$(x,X)=chr$<v)jnext x:dat 

A 3,2,32,1 

220 FOR X-2 TO 16 STEP 2 IG1=G{POSITION 
X,R{? H$ j JG1=G1~15IF G1 = 0 THEN 2-10 
230 ? H$; JGl-Gl-lJIF GIOO THEN 230 

2to ? h»<i,i):r=r+i:g-g-i:next xjposit 

ION X,R:? H$(1,1) IG=16 

250 FOR X=0 TO G{POSITION X,G1S? CHR*< 

T>INEXT XIPOSITION X,G11? CHR$(5)1G=G- 

2 IG1=G1 + 11IF G>-2 THEN 250 

260 G=36 

270 POSITION G-l »G1 {? CHR*(6)IF0R X==G 
TO 381POSITION X,G1I? CHR*(4){I NEXT XI 
G~G~2 *G1=G1 + 11 IF Gl<>18 THEN 270 
280 G=20 IG:l = 0 

290 POSITION G-l,Gil? CHR*<7){F0R X=G 
TO 381POSITION X,G1I? CHR*(8)INEXT XJG 
=G+2 I Gl-Gl + 'l 5 IF G<38 THEN 290 
300 G=0ITL=50 

310 FOR X=0 TO GIPOSITION X,G1J? CHR$( 
8)JI NEXT XI? CHR$(9)JG-G+21G1=G1 + 1IIF 
G1018 THEN 310 

330 FOR X=0 TO 9IF0R V=0 TO 9IGRID(X,V 
)= 0 ’NEXT VINEXT XIREM CLEAR GRID FOR N 
EW GAME 

340 SOUND 0,100,10,10IGOSUB 1000ISOUND 
0,75,10,101 GOSUE: 1 0 0 0 I POSITION 4,211? 
" PLAYER ONE " I PLAYER= 10 I GOSUE: 1010 
350 SOUND 0,150,10,10IGOSUE: 1000 ISOUND 
0,125,10,10IGOSUE: 1 0 0 0 I POSITION 4,211 
? " player two "{PLAYER = 12IGOSUE: 1010 
360 GOTO 340 

1000 FOR TIME=1 TO TLI NEXT TIME I RETURN 
1010 SOUND O , O,O,OIG-18IR-l8 J POSITION 
G,RI? CHR*(PLAYER)JCHR$ <29)JCNR*(30 ) IC 
HR* (Pl. A YER +1) 10V=310 V1 =32 I GR= 0 I GOO 
1020 OPEN : I2 ,4,0 , "KI " I REM OPEN KEYBOAR 
D FOR A READ 

1030 GET *2, KEY 5 IF KEYM27 THEN KEY=KE 
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Y-1285POKE 694,05REM SET FOR NORMAL. VI 
DEO 

10 4 0 IF KEY>95 THEN KEY=KEY-32 * POKE 70 
2,645REM SET FOR UPPER CASE 
1050 IF KEY<66 OR KEYX39 THEN 1030 5REM 
NOT A GOOD KEY 

1060 IF KEY-72 OR KEY-84 OR KEY-89 OR 
KE:Y : =85 OR KEY-66 OR KEY-78 OR KEY-77 T 
HEN CLOSE #25 GOTO 1080 
1070 GOTO 1030 

1080 IF R=18 AND KEYOP9 THEN 1020 

1090 or=rjog=g:ugr=gr:ogc==gc:if key=89 

THEN R=R~25GC=GC+15GR-GR+1{GOTO 11705 
REM MOVE UP 

1100 IF KEY-78 THEN R=R + 2 5 GC=GC-1* GR = G 

R~15 GOTO 1170 5REM MOVE DOWN 

1110 IF KEY-85 THEN R=R-15 G-G + 25 GC = GC + 

15 GOTO 1170 5REM UP AND RIGHT 

1120 IF KEY-84 THEN R-R-l 5 G-G-2 5 GR=GR+ 

15 GOTO 1170 5REM UP AND LEFT 

1130 IF KEY=66 THEN R=R +15G=G-25GC^GC- 

15GOTO 1170 5REM DOWN AND LEFT 

1140 IF KEY-77 THEN R=R+15 G==G + 2 5 GR=GR~ 

15GOTO 1170 5REM DOWN AND RIGHT 

1150 IF KEY=72 THEN 1220 5REM STAY THER 

E 

1160 GOTO 1020 

1170 IF < GR<1 OR GR>9 OR GC<1 OR GC>9) 
AND R<>18 THEN G=OG 5 R=OR 5 GR=QGR 5 GC=OG 
C5 GOTO 1020 

1180 LOCATE G , R , V 5 LOCATE G,R+1,V15IF V 
<>10 AND VO 12 AND V<>3 THEN G=OG5R=OR 
5GR=OGR5GC=OGC5GQTO 1020 
1190 POSITION OG , OR 5 ? CHR$(OV) } CHR*< 29 
);CHR$(30)JCHRSCOVl) 

1200 POSITION G,R5? CHR$(PLAYER)5CHR$( 
29)}CHR$(30)»CHR$( PLAYER + 1)5 0V=V50V1-V 
1 

1210 GOTO 1020 

1220 IF GRID(GC,GR)<>0 THEN SOUND 0,50 
, 10,10 5GOSUE: 100 0 5 SOUND 0,0,0,0 5 GOTO 1 
0 20 5REM NOT AVAILABLE 

1230 GRID(GC,GR)=PLAYER5 SOUND 0,150,10 
,10 5 GOSUE: 1000 580UND 0,0, 0,0 5 REM MARK 
IT FOR THAT PLAYER 
1240 IF PLAYER = '.L 0 THEN GOTO 1410 
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I 1250 9=i5x=i5ox=o50o=o 

12A0 CX=X5C,9=95IF GRID(C0,CX)O12 then 
X=X +15 IF XO10 THEN 1260 
1270 IF X=10 THEN 140 0 

1275 F=0*.IF GRID(C9,CX)=12 AND C9 = 9 TH 
EN 1390 

12(30 91=05X1=05IF C9<9 THEN IF GRID < CD 
+ 1 ,CX)=12 AND OOOCO+1 THEN 91=C9+15X1 

=cx:f=i 

1290 92 = 0 :X2=?0 JIF C9<9 AND CX<9 THEN I 
F GRID(C9+1»CX+1)=12 AND 09OC9+1 AND 
OXOCX+1 THEN 92=C9+15X2=CX+15F=1 
1300 93=05X3=05IF C X < 9 THEN IF GRID (CD 
, CX+1) = 12 AND OXOCX+1 THEN 93=C95X3=C 

x+i:f=i 

1310 94 = 0 5X4=0 :if cx>i then if GRIDCC9 
,CX-1>=12 AND OXOCX-1 THEN 94=C95X4=C 
X-l 5 F = 1 

1315 IF F = 0 THEN GRID ( CD , CX ) =--12 : IF CD 
=1 THEN 9=15X=X+15GOTO 1260 
1320 IF CX=OX AND C9=09 AND F=0 THEN 9 
=15X=X+15GOTO 1260 

1330 IF F = 0 THEN CX=OX JC9=09 5 GOTO 1270 

1340 IF 9100 AND XlOO THEN 09=C950X= 

CX 5 C9=915 CX=X15 GOTO 1275 

1350 IF 9200 AND X2O0 THEN 09=C950X= 

cx:c9=92:cx=X2:goto 1275 

1360 IF 930 0 AND X3O0 THEN 09=C950X= 

CX5C9=035CX=X3SGOTO 1275 

1370 IF 9300 AND XlOO THEN 09=C950X= 

CX 5 C9=94 5 CX=X4 J GOTO 1275 

13(30 REM ! ! AND #2 IN IN9ERSE 

1390 POSITION 4,215? " winner!! *2 "5 

GOTO 1600 

1400 FOR X=1 TO 9 5 FOR 9=1 TO 95GRID(9, 
X)“ABS < GRID(9,X))5 NEXT 95 NEXT X5 RETURN 
1410 9=1SX=15OX=0509=0 

1420 CX=X 5 C9=9 * IF GRID < 09 , CX ) Ol 0 THEN 
9=9+15IF 9010 THEN 1420 
1430 IF 9=10 THEN 15(30 

1440 F=05IF GRID(C9,CX) = 10 AND CX=9 TH 
EN 1570 

1450 91=0 5X1 = 0 5 IF CX<9 THEN IF GRID(C9 
,CX + 1 > = 10 AND OXOCX+1 THEN X1=CX+1591 
= C 9 5 F = 1 

1460 92=05X2=05IF C9<9 AND CX<9 THEN I 
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F GRID(CD+1 > CX +1) =10 AND ODOCD+1 AND 
OXOCX + 1 THEN D2=--CD + :l :X2=CX + :L 1F=1 
1470 03=05X3=0JIF CD<9 THEN IF GRID < CD 
+1,CX)=10 AND QOOCO+ :L THEN 03=CV+15X3 

=cx:f=i 

14(30 04 = 0 5X4 : =0 * IF COM THEN IF GRID (CD 
-1,CX)=10 AND QOOCO-1 THEN 04=C0-i:X4 
= CX5F = :L 

1490 IF F-0 THEN GRID(CD,CX)=-105 IF CX 

= 1 THEN X = 15 0=0+15 GOTO 1420 

1500 IF CX=QX AND C0=00 AND F=0 THEN X 

= 1 : 0 = 0 + 1 :goto 1420 

1510 IF F = 0 THEN CX = 0X C0 = 00 5 GOTO 1430 
1520 IF D1 <>0 AND X1O0 THEN (DD=CDJOX = 

cx:co=oi:cx=xi:goto 1440 

1530 IF D2O0 AND X2<>0 THEN OD=CO:OX= 

CX:CD=D2:CX=X2JG0T0 1440 

1540 IF 0300 AND X3<>0 THEN 0D=CD:C)X= 

CX5CD : =D35CX = X3«GOTO 1440 

1550 IF 0400 AND X4O0 THEN OD=CD:OX== 

cx;cd=D4jcx=x4:goto 1440 

1560 GOTO 1500 

1570 POSITION 6,215? " WINNER!! *1 "J 
GOTO 1600 

15(3 0 FOR X = 1 TO 9 5FOR D = 1 TO 9:GRID(D, 
X)=ABS(GRID(O » X))♦NEXT D5 NEXT XJRETURN 
1600 IF PEEK (53279) 06 THEN 160 0 
1610 GOTO 140 


ray. The GRID array keeps track of which locations are clear and 
which are occupied. H$ contains the characters that make up the 
shape of the grid. 

Line 60 sets the screen to graphics 0. This is the text mode, 
to which the computer defaults. This program will change the 
display table and use the screen as a graphics mode, so the com¬ 
puter must execute a graphics command first. The first byte of the 
display list is placed into the variable DLIST. The address of the 
display list is stored in locations 560 and 561. The fourth location 
of the display list is changed to 68. This is the instruction code plus 
the display mode for the top row on the screen. Nineteen lines of 
the display list are changed to ANTIC mode 4. This mode will 
display four colors on the screen. The characters are eight pixels 
high and eight pixels wide. 
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Line 70 changes the text window from the text mode to graphics 
1. This is ANTIC 6. This value is POKEd into the next four rows 
of the display list. 

Line 80 finds out how much memory the computer has. This 
value is decreased by eight. The character set will be moved and 
placed just before the screen memory. The location of the new 
character set is stored in memory location 204. The location of the 
first byte of the ROM-based character set is stored in location 206. 
These two values are used by the assembly language subroutine 
that moves the character set from ROM into RAM. The colors of 
the characters are also changed to light and dark purple. 

Line 90 reads the code from line 100 and stores it in memory 
locations 1536-1555. This is the assembly language subroutine that 
will move the character set from ROM into RAM. Line 100 con¬ 
tains the decimal codes for the assembly language subroutine. 

Line 110 uses the USR command to execute the assembly 
language subroutine at memory location 1536. When the computer 
returns to this line the character set will be moved to RAM. To 
use this character set, POKE location 756 with the value of A. 

Line 120 sets the value of CHARSET to the first byte of the 
character that will be changed. The FOR-NEXT loops read in the 
codes that will change 13 characters in the character set. 

Lines 130-134 contain the codes that change the characters in 
the character set. 

Line 140 uses the RESTORE command to ensure that the com¬ 
puter is pointing to this line. The characters of the four numbers 
in this line are placed in H$. These are the characters that will form 
the grid for the same. 

Line 150 sets the variable R to zero. This is the row the grid 
characters will be printed in. The variable G is the number of grids 
that will be printed in that row. The first row contains one grid. 
The variable X is the column in which the grid will be printed. The 
loop steps backwards from 17 to 1. The value of G is moved to 
variable Gl. The computer prints the grid on the screen. Variable 
G1 is decreased by one. If it is zero, the computer is sent to line 
line 170 to adjust for the next row. 

Line 160 prints the grid on the screen again. Because the pro¬ 
gram uses a semicolon after printing H$, every H$ will be connected 
to the previous H$, making a complete grid across the screen. The 
variable Gl is decreased again. The computer loops at this line until 
Gl variable is zero. 

Line 170 adds 1 to the value of R. This is the next row on which 
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the grid will be printed. The variable G is increased by 1. Every 
row will have one more grid in it. The loop continues until the first 
half of the grid is on the screen, then the value of G is decreased 
by 3. The second half of the grid contains a decreasing number of 
grids in it. 

Line 180 changes the shape of the grid in H$. The computer 
was printing the top part of the grid when it was printing the top 
half of the grid. Now it has to change the shape of the character 
in H$ to print the bottom half of the grid. 

Line 190 stores the value of G in the variable Gl. The second 
character is printed on the screen followed by the characters in H$. 
The value of G is changed to one less than the value of Gl. If Gl 
is 0, the computer goes to line 210 to print the rest of the grid. 

Line 200 prints the remaining parts of the grid in this row. The 
variable Gl is decreased by 1 each time a portion of the grid is 
printed on the screen. When the row is complete, the computer con¬ 
tinues with the next line. 

Line 210 prints a space and then the first character to com¬ 
plete the grid row. The value of R is increased by 1 for the next 
row and the value of G is increased by 2. The characters in H$ are 
changed again. The middle row of the grid needed special treat¬ 
ment because it is the connecting row between the top and bottom 
of the grid. The rest of the grid can be printed like the top half 
was with the characters in H$. 

Line 220 begins the FOR-NEXT loop. The variable S is the 
column where the grids for that row will begin. The value of G is 
stored in variable Gl. The characters in H$ are printed on the 
screen. The value of Gl is decreased by 1. If the value Gl is 0, 
the computer is sent to line 240 to finish the row. 

Line 230 prints the characters in H$ again. The computer loops 
at this line until the value of Gl is 0. This is the end of the row. 

Line 240 prints the first character of H$ to close the grid row. 
The value of R is increased to point to the next row, and the value 
of G is decreased by 1. Each row will contain one less hex shape 
than the row before it. The loop continues until all the rows are 
printed on the screen. The last hex shape is completed and the 
variable G is set to 16. 

Line 250 fills in the upper left side of the screen with light pur¬ 
ple. The last character of each line replaces the grid character with 
the background color and the grid character. 

Line 260 sets the variable G to 36. This is the column position 
of the lower right side of the screen. 
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Line 270 prints the grid character, then the color characters 
on this side of the screen. The loop continues until the lower right 
side of the screen is filled in with light purple. 

Line 280 sets the variables G to 20 and the variable G1 to 0. 
Now the computer will fill in the other two corners. 

Line 290 begins the FOR-NEXT loop that fills in the upper right 
corner of the screen. The first character printed is the grid character 
with the background color. The rest of the row is filled in with the 
background color. 

Line 300 changes the value of G to 0 and the value of TL to 50. 

Line 310 fills in the lower left corner of the screen. 

Line 330 clears the values from the GRID array. The computer 
does not clear an array when the program is run. If we don’t clear 
it before we use it, it may contain erroneous information. 

Line 340 makes a sound, prints the player’s number on the bot¬ 
tom of the screen, sets variable PLAYER to 10 and uses the 
subroutine in line 1010 to move the cursor on the screen. The value 
of variable PLAYER indicates which cursor will be printed on the 
screen. 

Line 350 makes a different sound to indicate that it is the sec¬ 
ond player’s turn. The value of PLAYER is changed to 12, and 
the computer uses the subroutine in line 1010 to move this cursor. 

Line 360 sends the computer back to line 340. The computer 
loops at these lines until one player makes a path from one end 
of the grid to the other. 

Line 1000 is a timing loop. This subroutine is used to slow the 
program down. 

Line 1010 begins the subroutine that moves the cursor on the 
screen. The sound is turned off. Then the variables G and R are 
set to 18. This is the row and column at the bottom of the grid. 
The cursor for the player is printed at this position. The cursor is 
made up of two characters. The top half of the cursor is the value 
PLAYER. This is the top part of the cursor and the bottom line 
of the grid. The two values printed on the screen after the top part 
of the cursor are the backspace and the down arrow. This lowers 
the invisible cursor one row and moves it back one column. Now 
the bottom part of the cursor can be printed under the top part of 
the cursor. The variables OV, OV1, GR, and GC are set. These 
variables keep track of the position of the cursor on the grid. 

Line 1020 opens the keyboard for a read. 

Line 1030 waits until a key is pressed. The value of this key 
is stored in the variable KEY. If the value of KEY is greater than 
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127, the inverse key was pressed and the computer subtracts 128 
from the value of KEY. The location 694 is POKEd with a zero 
to reset the flag to normal video. 

Line 1040 checks to see if the value of KEY is greater than 
95. If it is, the CAPS key was pressed and the key is in lowercase. 
Subtract 32 from the value of KEY to get the uppercase value of 
the key. The location 702 is POKEd with 64 to reset the keyboard 
for uppercase only. 

Line 1050 checks to see if the value of the key is between 66 
and 89. If it isn’t, the computer goes back to line 1030 to set an¬ 
other input. 

Line 1060 compares the value of KEY to see if it is one of the 
keys that will move the cursor. If it is, the keyboard is closed and 
the computer is sent to line 1080. The keys that move the cursor 
are the T, Y, U, B, N, and M. The H key will capture the hex loca¬ 
tion on which the cursor is resting. 

Line 1070 sends the computer back to line 1030 to get another 
input. The computer will loop through these lines until one of the 
seven keys are pressed. 

Line 1080 checks to see what row the cursor is in. If it is in 
row 18, the only direction the cursor can move is up. If the value 
of KEY is not 89 (the Y key) the computer will go back to line 1020 
to get another input. If the direction of the cursor were not limited 
when it was outside the grid, it could be moved anywhere and not 
necessarily on the grid. 

Line 1090 sets the values of the variables used to move the cur¬ 
sor. It is more complicated to move through hex locations than 
through squares. The value of KEY is checked to see if it is a Y. 
If it is, the value of R is decreased by 2. Each hex location is ac¬ 
tually two rows high. The variables GC and GR are also increased 
by 1. The computer is sent to line 1170 to move the cursor up. 

Line 1100 checks to see if the N key was pressed. If it was, 
the cursor will move down. The value of R is increased by 2 and 
the values of GC and GR are decreased by 1. The computer is sent 
to line 1170 to move the cursor down. 

Line 1110 checks for the U key. This moves the cursor up and 
to the right. This location is only one row above the present row. 
The value of R is decreased by 1 and the variable G is increased 
by 2. The variable GC is increased by 1. The computer is sent to 
line 1170 to move the cursor. 

Line 1120 checks the value of KEY for 84, a T. This moves 
the cursor up and to the left. The value of R is decreased by 1, 
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moving the cursor up one row; the value of G is decreased by 2, 
and the variable GR is increased by 1. The computer uses the 
routine at line 1170 to print the cursor on the screen. 

Line 1130 checks for the letter B. This moves the cursor down 
and to the left. The variable R is increased by 1 to move it down 
one row. The variable G is decreased by 2 and the variable GC is 
decreased by 1. The computer is sent to line 1170 to print the cur¬ 
sor in the new location. 

Line 1140 compares the value of KEY to 77. If the M key was 
pressed, the cursor will be moved down and to the right. The value 
of R is increased by 1, the value of G is increased by 2, and the 
value of GR is decreased by 1. The computer is sent to line 1170 
to print the cursor. 

Line 1150 checks to see if the H key was pressed. If it was, 
none of the values of the variables are changed. The computer is 
sent to line 1220 to print the cursor permanently in this location. 

Line 1160 sends the computer to line 1020 to set another in¬ 
put. Although the computer should only use these lines if one of 
the seven keys are pressed, this is a safeguard in case the routine 
was used and one of the seven keys was not pressed. 

Line 1170 checks the values of variables GR and GC. This is 
the grid columns and rows. If these variables are not between the 
values 1 and 9 and the value of R is not 18, the cursor is on the 
grid, but the new values would place it off the grid. The variables 
are reset to their original values and the computer is sent to line 
1020 to set another input. 

Line 1180 uses the LOCATE command to see if the location 
is already occupied. If the value of this location is not the top of 
one of the player’s cursors and not an empty grid location, it is not 
a possible position for the cursor. The values of the variables are 
reset and the computer is sent to line 1020 to set another entry. 

Line 1190 prints the contents of the grid in the position the cur¬ 
sor is in right now. If there is a piece in this position it is restored. 
If the grid location was empty, it is cleared again. This way, two 
pieces can occupy the same grid location when one piece is pass¬ 
ing through. 

Line 1200 prints the current cursor in the new position. The 
values of the character that occupied the location before this 
character was placed there are stored in the variables OV and OV1. 

Line 1210 sends the computer to line 1020 to get another entry. 

Line 1220 is used when the H key is pressed. The GRID array 
is checked to see if this position is available. The variables GC and 
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GR point to the column and row of the array. If this location does 
not contain a zero, the computer will make a sound, use the timing 
loop in line 1000, and send the computer back to line 1020 for an¬ 
other entry. Only one player can permanently occupy one location. 

Line 1230 places the value of PLAYER in this location in the 
GRID array. The computer makes a sound that tells the player that 
he has captured this location. 

Line 1240 checks to see which player has taken the location, 
if the value of PLAYER is 10, the computer goes to line 1410. 

Line 1250 resets the variables V, X, OX, and OV. These 
variables will be used in the following routine, that checks to see 
if the player has made a complete path from one side of the grid 
to the other. 

Line 1260 stores the values of X and V in CX and CV. The 
value of this location in GRID array is checked. If it is not 12, the 
value of X is increased by 1. If it is not 10, the line is repeated. 
This line loops until a value of 12 is found or the value of X equals 
10. The computer is looking for this player’s marker along the right 
bottom side of the grid. 

Line 1270 sends the computer to line 1400 if the value of X 
is 10. This means there is no marker along this edge of the grid, 
so this player could not possibly have completed a path from one 
side to the other. 

Line 1275 clears the variable F and checks to see if the variable 
CV is 9. This could be the last column of the grid. If the last col¬ 
umn of the grid contains a 12, the computer is sent to line 1390. 
This is a completed path. 

Lines 1280-1380 check the hex positions around the location 
that contains this player’s cursor. If the next location also contains 
a 12, the variables are updated and the loop continues until the path 
ends or the computer reaches the other side of the grid. If the 
variable F is not set, that location is set to a negative number so 
the computer does not end up going back and forth between two 
locations forever. 

Line 1390 declares this player a winner. This program line is 
reached only when a complete path from one side of the screen to 
the other is completed. The computer then goes to line 1600 and 
waits until the Start key is pressed. 

Line 1400 resets the entire grid to its original values. Any 
numbers that were changed to negative numbers are reset to 
positive. The computer returns to the main lines of the program. 

Lines 1410-1580 perform the same routine but in the opposite 
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order. This time the computer searches the grid from the top left 
side to the bottom right side to see if Player One has made a com¬ 
plete path across the grid. If he has, the computer declares this 
player the winner. If he hasn’t, the computer resets all the variables 
in the grid and returns to the main program to give Player One an¬ 
other turn. 

Lines 1600-1610 are the end of the program. The computer 
loops at these lines after one player wins. The computer continues 
the loop until the Start key or the System Reset key is pressed. 
Pressing the Start key sends the computer back to line 140 for an¬ 
other game. Pressing System Reset restores the screen to the text 
mode. 

TREASURE HUNT 

Objective of the game: To find all the lost treasures before 
running out of air. 

Directions. A grid similar to the one used in “Battleship” is 
printed on the screen. In addition to the grid letters and numbers, 
the directions North, South, East, and West are printed on the 
screen. The diver appears in the upper left corner of the screen. 
You are instructed to enter a letter and a number. The letter entered 
should be one of the coordinates A-J. Then enter a comma, then 
the number coordinate. If you enter the wrong letter or number, 
the Delete key can be pressed and the number or letter will be 
removed. 

Once you are satisfied with the coordinates you have entered, 
press the Return key. The diver will appear at that location on the 
grid. Look at the four letters that indicate direction. Some will be 
light green, others will be pink. This is a clue. The diver must travel 
toward the pink letters to find the treasure. 

The units of oxygen are displayed near the bottom of the screen. 
Each time the diver moves, he uses 10 units of oxygen. When the 
diver finds the treasure, he surfaces, places the treasure on the 
screen and receives 100 units of oxygen. The grid clears and the 
diver is ready to be sent down for the second treasure. The game 
continues until the diver runs out of oxygen or finds the three 
treasures. If the diver finds all three treasures, the screen keeps 
flashing until the Return key is pressed. This restores the program 
for another game. If the diver runs out of air, the location of the 
treasure is displayed on the grid and the coordinates are printed 
under the grid. The computer waits until the Return key is pressed. 
In either case, the program ends after three games are played. The 
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treasures collected are displayed near the top of the screen. Fig¬ 
ure 2-6 is the flowchart, Fig. 2-7 is the character set for this pro¬ 
gram, and Listing 2-4 shows the code. 

Line 50 checks to see how much memory is in the computer. 
The computer subtracts 8 from this amount; this is where the 
character set will be moved. The computer stores this value at mem¬ 
ory location 204. The computer stores the location of the character 
set in ROM at location 206. This information will be used in the 
assembly language subroutine that moves the character set from 
ROM to RAM. 

Line 60 reads the code in line 70 and places it into memory 
locations 1536-1555. This code is the assembly language subroutine 
that moves the character set. Line 70 contains the decimal codes 
for the routine that moves the character set from ROM into RAM. 

Line 80 changes the screen to graphics 17. This is graphics 1 
with no text window. The USR command sends the computer to 
the assembly language subroutine at memory location 1536. When 
the computer returns to this line, it places the address of the 
character set in RAM into location 756. 

Lne 90 places the location of the first byte of the character 
that will be changed into the variable CHARSET. Seven characters 
will be changed in this character set. The FOR-NEXT loop reads 
the code for the new characters and places it in the area for the 
existing characters. 

Lines 100-120 contain the codes for the new characters. 

Line 130 prints the diver in the upper left corner of the screen. 
The units of oxygen are set to 100 and the variable G is set for 
the first game. The FOR-NEXT loop prints the grid on the screen. 

Line 140 prints the four directions on the screen. 

Line 150 prints the letters across the top of the grid and the 
numbers along the side. When X is equal to 10, the statement X = 10 
will be equal to 1. The column value will then be 3 rather than 4. 
When X is not equal to 10, the statement is equal to 0. This keeps 
the number even on the screen. 

Line 155 picks two random numbers. The variable TR is the 
row value for the treasure. The variable TC is the column variable. 

Line 160 prints the units of oxygen and the game number on 
the screen. 

Line 170 uses the subroutine in line 600 to make a sound. The 
computer then asks for a letter and a number. The cursor is placed 
on the screen. 

Line 180 sets the variables AC and AR. This is the row and 
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Fig. 2-6. Flowchart for Treasure Hunt. 











column of the cursor. The letter that is entered is placed in this 
position on the screen. The keyboard is opened for a read. 

Line 190 waits until a key is pressed. The value of this key 
is placed in the KEY variable. 

Line 200 checks to see if the Return key is pressed. If the value 
of KEY is 155 and the value AC is greater than 11, the Return key 
will be accepted and the computer will go to line 350. 

Line 210 checks to see if the value of KEY is greater than 127. 
If it is, the inverse video was pressed. The computer subtracts 128 
from the value of KEY and POKEs location 694 with zero to reset 
the flag for normal video. 

Line 220 checks to see if the value of KEY is 126. If it is, the 
Delete key was pressed. The computer goes to line 330 to erase 
the entry. 

Line 230 checks the value of KEY to see if it is greater than 
95. If it is, the computer subtracts 32 from this amount and resets 
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Fig. 2-7. Character set for Treasure Hunt. 

Listing 2-4. Treasure Hunt. 


10 REM TREASURE HUNT - FIND THE HIDDEN 
TREASURES IN THE LEAST NUMBER OF TRIE 
S 

20 REM CHAPTER 2 - GRID GAMES 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

TO REM COPYRIGHT 1983 

50 A=F’EEK < 1 06 ) - 8 {POKE 20T,AJPOKE 206, F' 
EEK< 756) 

60 FOR X=1536 TO 15551READ V 5 F'OKE X,Vt 
NEXT XI REM ROUTINE TO MODE THE CHARACT 
ER SET 

70 DATA 10T,162,T,160,0,177,205,ITS,20 
3,200,208,2T9,230,206,230,20T,202,208, 
2T2,96 

80 GRAPHICS 17 * Q=USR(1536)«POKE 756,At 
REM MODE IT AND USE IT 

90 CHARSET=A*256+2TJF0R X=CHARSET TO C 
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HARSET+55 i READ V {POKE X,V!NF_XT X5REM C 
REATE NEW CHARACTERS 

100 DATA 0,0,24,60,60,24,0,0,0,0,36,24 
,24,36,0,0 

110 DATA 0,56,124,254,198,198,254,124, 

0,30,62,120,224,126,126,126 

120 DATA 0,14,14,14,14,62,122,0,0,112, 

64,92,94,90,126,92,0,126,126,126,126,1 

26,126,0 

125 REM OPEN PARENTHESIS & POUND SIGNS 
ARE INVERSE 

130 R=0tC=0{POSITION C,R{? #6J"<"5U=U+ 
100{G=G+1JFOR X=5 TO 14{POSITION 5,XJ? 

#6 } "** 44 ******" ’.NEXT X 
140 POSITION 10, It? #6{"n"{POSITION 1, 
9 5? *6*, "w": POSITION 17,9{? #6‘, "e" JPOSI 
TION 10,16{? *6}"s"{REM DIRECTIONS 
145 REM alphabet IS LOWER CASE INVERSE 

150 POSITION 5,3*? *6{"abedef ghij"5 FOR 
X=1 TO 10*POSITION 4-(X = 10),X+4♦? *6J 
X♦NEXT X 

155 TR=INT(RND(1)#10)+1♦TC=INT(RND <1)* 
10)+1JREM HIDING PLACE 

160 POSITION 0,23{? *6; M UNITS "{U’.POSI 
TION 14,23:? +6{"GAME "JGJ 
165 REM letter, nunber AND CLOSE PAREN 
THESIS ARE LOWER CASE INVERSE 
170 GOSUB 60 0 ! POSITION 0,18!? *6}"ente 
r letter,number"5 POSITION 9,20 5 ? *6 J " 
"J POSITION 9,20!? #6*,")" 

180 AC”9 : AP: = 20 !OPEN * 2 ,4,0 , "K ! " 5 REM RE 
AD THE KEYBOARD 

190 GET #2,KEY!REM GET THE KEY BEING P 
RESSED 

20 0 IF KEY = 155 AND AC>11 THEN 350 5 REM 
RETURN KEY PRESSED 

210 IF KEYXL27 THEN KEY=KEY-128!POKE 6 
94,0JREM SET FOR NORMAL VIDEO 
22 0 IF K E Y = 12 6 THEN 33 0 5 REM DELETE ENT 
RY 

230 IF KEY>95 THEN KEY=KEY-325POKE 702 

,64!REM SET FOR UPPER CASE 

240 IF AC=9 THEN IF KEY<65 OR KEY>74 T 

HEN 19 0 5REM NOT A LETTER 

250 IF AC :: =10 AND KEY044 THEN 190 5REM 

NOT A COMMA 
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260 IF AO10 THEN IF KEY<48 0F< KEY>57 
THEN 1901 REM NOT A NUMBER 

27 0 IF AO 13 THEN 190 

28 0 IF A09 THEN HOKEY-6T t GOTO 320 
290 IF AC=11 THEN HR-KEY-48 5GOTO 320 
295 REM CLOSE PARENTHESIS IS INVERSE 
300 IF AC = 12 AND (KEY048 OR HROl) TH 
EN POSITION AC,AR5? *6}")"5 GOTO 190 
310 HR=10 

320 POSITION AC,AR5? *6}CHR*(KEY+128)5 
")"5AC=AC + 15 GOTO 190 * REM PRINT THE LET 
TER,NUMBER 

330 AOAC-1JIF AC<9 THEN A09 

335 REM CLOSE PARENTHESIS IS INVERSE 

340 POSITION AC,AR:? *65") "5G0T0 190 

350 CLOSE *2 * REM GOT THE ENTRY 

360 IF R=0 AND C=0 THEN POSITION R,C!? 

*65" "JGOTO 380 J REM ERASE THE DIVER I 
N THE CORNER 

370 POSITION C+4,R+45? *65"$"JREM X MA 
RKS THE SPOT 

380 R=HR 5 C=HCJ POSITION C+T,R+45? *65 "< 

"J REM PUT DIVER ON THE SPOT 

390 IF R~TR AND C=TC THEN 50 0 J REM GOT 

IT 

TO 0 POSITION 10,15? *65"n"5 POSITION 1, 
9 5? *65"w"5 POSITION 17,9 5? *65"e"5POSI 
TION 10,165? *6 5"s"5 REM DIRECTIONS 
410 IF TC<C THEN POSITION 1,95? *65"w" 
J REM GIVE CLUES - w IS LOWER CASE INVE 
RSE 

420 IF TOC THEN POSITION 17,95? *65"e 

"5 REM <e IS LOWER CASE INVERSE 

430 IF TR<R THEN POSITION 10,15? *6}"n 

"5REM n IS LOWER CASE INVERSE 

44 0 IF TR>R THEN POSITION 10,165? *65" 

s" 5 REM <5 IS LOWER CASE INVERSE 

T5 0 U=U-10 5POSITION 5,23 5? *6 5" "5 

IF 11=0 THEN T70 

T60 GOTO 160 

T7 0 SOUND 0,20 0,10 , 10 5GOSUB 610 5POSITI 
ON 0,185? *65" TREASURE WAS AT "5PO 
SITION 9,20 5? *6 ? CHR'l < TC + 6T ) 5 " , " f TR 
T80 POSITION TC+T ,TR+T 5? *6 5CHR$(G + 36) 

5 SOUND 0,0,0,0 5 IF G = 3 THEN 55 0 

T90 OPEN *2,T,0,"K 5"5 GET *2,KEY 5 CLOSE 

*25 GOTO 130 
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50 0 POSITION :L9~G,0J? If A CHR$ (36 + G ) 5 RE 

M PUT TREASURE ON SCREEN 

510 IF G=3 THEN 550:REM GAME OVER 

52 0 FOR X=:L TO 10 1 POKE 712, XJ SOUND 0,2 

0Q~X*10,10,10JGOSUB 61 0: NEXT X*. SOUND 0 

,o,o,o:poke 712,0:GOTO 130 

550 FOR X=:L TO 10JPOKE 712,XJP0KE 711, 

X*10JPOKE 710,X*10+5,POKE 709,X*5!SOUN 

D 0,200-X*10,10,10JGOSUB 610:NEXT X 

560 SOUND 0,0,0,0JIF PEEK(764 )=255 THE 

N 550 

570 position is, o:? #6}" m :g=o:u=o 

* POKE 709,202 J POKE 710,148:POKE 711,70 

* POKE 712,0:GOTO 130 

60 0 FOR T = 1 TO 2 J SOUND 0,50,10,10JGOSU 
B 610’.SOUND 0 ,0 ,0,0 JGOSUB 610 5 NEXT TJR 
ETIJRN 5 REM BEEP 

610 FOR TIME = 1 TO 20 5NEXT TIMEfRETURN 


the keyboard for uppercase by POKEing location 702 with 64. 

Line 240 validates the value of the key that was pressed. If the 
column position for the cursor is 9, the key must be a letter. If the 
value of KEY is not between 65 and 74, the key was not a letter 
from A-J. The computer is sent back to line 190 to get another input. 

Line 250 checks to see if the cursor is in the tenth column. If 
it is, the only entry allowed is the comma. If the comma is not 
entered after the letter, the computer goes back to line 190 and 
waits for the comma to be entered. 

Line 260 checks to see if a number key was entered if the value 
of AC is greater than 10. The computer goes back to line 190 if 
a number was not pressed. 

Line 270 sends the computer back to line 190 if AC is equal 
to 13. Only the Return key or the Delete key can be entered if the 
value of AC is 13. 

Line 280 takes the letter value of KEY and places it in the 
variable HC if the value of AC is 9. 

Line 290 takes the number value of KEY and places it in the 
variable HR if the value of AC is 11. 

Line 300 will accept the value of KEY only if the value of AC 
is 12, the value of KEY is 0, and the value of HR is 1. This way 
the player cannot enter other two-digit numbers for the row value. 

Line 310 changes the value of HR to 10 because the value of 
HR was 1 and the 0 key was pressed. 
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Line 320 prints the number or the letter that was entered. The 
AC variable is incremented by 1 and the computer goes back to 
line 190 for another entry. 

Line 330 is used when the Delete key is pressed. The computer 
subtracts one from the value of AC. If the value of AC is less than 
9, the value is reset to 9. 

Line 340 prints the cursor with a space after it. This erases 
the cursor from its previous position. The computer goes to line 
190 for another entry. 

Line 350 closes the keyboard after an entry has been made. 

Line 360 checks the values of R and C. If both are 0, this is 
the first time the diver is moving. The computer erases the diver 
from the top left corner, then goes to line 380. 

Line 370 removes the diver from its position on the grid. The 
diver is replaced with an X so the player will know which positions 
on the grid were already tried. 

Line 380 places the values of HR and HC into the variables 
H and C. The diver is printed on the screen in the new location. 

Line 390 checks to see if the row and column the diver is in 
matches the row and column the treasure is in. If both match, the 
computer goes to line 500. 

Line 400 prints the four directions on the screen again. This 
restores any direction that was in a different color. 

Line 410 checks the value of TC against the value of C. If the 
treasure’s column position is less than the value of the variable C, 
the diver needs to move west. The letter W is printed in inverse. 

Line 420 checks to see if the value of the treasure’s column 
is greater than the position of the column. If it is, the diver should 
move east, and the letter E is printed in inverse. 

Line 430 checks the variable TR against the value of R. If the 
treasure is in a row with a value less than that of the row the diver 
is in, the diver should move north. The letter N is printed in inverse. 

Line 440 checks to see if the value of the treasure’s row is 
greater than the row the diver is in. If it is, the diver should move 
south and the letter S is printed in inverse. 

Line 450 subtracts 10 units of oxygen from the amount the diver 
has. If the diver has no oxygen left, the computer goes to line 470 
to give the location of the treasure. 

Line 460 sends the computer to line 160 for another entry. 

Line 470 makes a sound, and prints the location of the treasure 
on the screen. 

Line 480 places the treasure on the grid. The character that 
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is the treasure is determined by the value of G. The computer goes 
to line 560 if this was the third game. 

Line 490 waits for a key to be pressed. The keyboard is opened 
for a read, and the computer waits until the player presses a key. 
The keyboard is closed and the computer goes to line 130 for an¬ 
other game after the key is pressed. The value of the key is 
disregarded. 

Line 500 prints the treasure at the top of the screen. The 
treasure can be a ring, a chest, or an old boot. 

Line 510 checks to see if this is the third game. If it is, the com¬ 
puter goes to line 550. 

Line 520 makes a sound and changes the color of the screen, 
then sends the computer to line 130 for another game. 

Lines 550-560 end the game. The computer changes the color 
of the screen and makes sounds. If no key is pressed, the computer 
will continue to loop between these two lines. 

Line 570 resets the variables for the number of games and the 
units of oxygen, restores the colors to the screen and sends the com¬ 
puter to line 130 to play another set of games. To end the program 
completely, press the System Reset key. 

Line 600 makes the prompt sound. 

Line 610 is the timing loop. 

THE GREAT ABYSS 

Objective of the game: To capture the creature without 
getting killed or falling into the bottomless pit. 

Directions: You begin at one position of interconnecting 
rooms and locations. The swamp creature lives in one of these 
rooms. There are flying creatures and a bottomless pit in this area. 
You have five arrows. You are trying to capture the creature with 
one of these arrows. You can capture the creature by shooting an 
arrow into the room where he is hiding. It’s not simple; if you walk 
into the room where he is, he will capture you. 

There are many hazards throughout the caves. One of the fly¬ 
ing creatures can come into the room with you, pick you up, and 
deposit you in a different room. This could be an ordinary room, 
the room where the swamp creature is, or the bottomless pit! You 
have no control over the flying creature. 

The computer will give you clues when you are near hazards. 
The screen will turn light blue when you are one room away from 
the bottomless pit. A worm will crawl across the screen when you 
are one room away from the swamp creature. The computer will 
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Fig. 2-8. Flowchart tor The Great Abyss. (Continued through page 120.) 
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make a sound when the flying creatures are near. 

To move yourself, press the left and right arrows. To go into 
the next room, press the Return key. To shoot an arrow, press the 
space bar. The power of the arrow begins with 1. This is the 
distance or number of rooms the arrow can travel. To lower the 
power, press the Escape key. To fire the arrow, press the Return 
key. If you capture the swamp creature, a message will appear on 
the screen. If the arrow goes through a room where the creature 
is hiding, he will run into another room. He can only move into one 
room at a time. If he comes into your room, he will capture you. 
Figure 2-8 is the flowchart, Fig. 2-9 is the character set for this 
program, and listing 2-5 is the code. 

Line 50 sets aside the memory needed for the strings and the 



Fig. 2-9. Character set for The Great Abyss. 
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Listing 2-5. The Great Abyss. 


10 REM THE GREAT ABYSS - CAPTURE THE C 
REATURE WITHOUT FALLING INTO THE BOTTO 
MLESS PIT! 

20 REM CHAPTER 2 - GRID GAMES 

30 REM BY L t M♦ SCHREIBER FOR TAB BOOKS 

TO REM COPYRIGHT 1983 

50 DIM C(20,3),R*(320),R00M*<16> 

60 A=PEEK(106)~8*POKE 20T,A 5 POKE 206,P 
EEKC756) 

70 FOR X-1536 TO 15555READ VIPOKE X,VJ 
NEXT X♦REM MODE THE CHARACTER SET 
80 DATA 10T,:L62,T, 160,0,177,205,1T5,20 
3,20 0,208,2T9,230,206,230,20T,202,208, 
2T2,96 

90 GRAPHICS 18 5Q=USR( 1536) 5 POKE 756,A5 
REM MODE THE SET 

100 CHARSET=A*256+2T 5FOR X=CHARSET TO 
CHARSET+955READ VJPOKE X.VJNEXT X 
110 DATA 0,130,8T »56 >108,25 T, T 0 , T 0 , 0 » 0 
,16,56,108,25T,0,0,0,16,TO,8T,16,16,16 
,0 

120 DATA 0,0,0,0,60,102,66,195,0,0,0,0 
,0,0,126,195 

130 DATA 0,0,66,165,2T,0,0,0,0,129,66, 
36,2T,0,0,0,0,0,0,36,90,129,0,0 
1T0 DATA 0,T9,25,15,159,191,25T,180,12 
8,198,20T,2T8,252,25T,127,T7,0,16,16,2 
3,61,127,25T,2T8 

150 DATA 255,128,129,159,159,159,191,2 
55 

160 REM SET UP THE CAVES 
170 R$(1)=" M :R$<320)=" "JR$(2)=R$2REM 
CLEAR THE STRING 

180 FOR X=1 TO 20 2 READ ROOM* ,R1,R2, R3*, 
R$(X#16-15,X*16)=ROOM$ 2 C (X»1) =R15 C(X , 2 
)=R2 2C(X,3)=R3J NEXT X 

190 DATA ROCKY BOTTOM,5,19,2,MOSS HEAP 
,1,11,3,SWAMP LAND,2,13,T,MARSH GROVE, 
3,15,5,STONE WALL,T,17,1 
200 DATA PEBBLE CREEK,7,20,10,GLADES,8 
,12,6,ICE ARENA,9,IT,7,CATACOMBS,10,16 
,8,SLIME PIT,6,18,9 

210 DATA BAT HAVEN,20,2,12,LOVER LEAP, 
11,7,13,SATAN PIT,12,3,IT,QUICKSAND,13 
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,8,15,DEVIL TOWER,14,4,16 

220 DATA GAO HIRE,15,9,17,ARTIC VIEW,! 

6,5,18,TREMBLING RAVINE,17,10,19,TIDEL 

AND,18,1,20,GREMLIN PEAK,19,6,11 

230 CREATURE=INT(RND(1)*19)+2»REM FLAG 

E THE CREATURE 

240 PIT1=1NT(RND(1)#19)+2JIF PIT1=CREA 
TURE THEN 24 0 J REM MAKE A PIT - CREATUR 
E CANNOT LIVE IN THE PIT 
2.50 PIT2=INT < RND (1) *19 ) +2 * IF PIT2=PIT1 
OR PIT2=CREATURE THEN 250 * REM MUST BE 
DIFFERENT 

260 HENS=INT(RND(1)*19)+2:REM HENS CAN 
BE ANYWHERE 

270 REM START THE GAME IN ROOM 1 
2.8 0 A=5JR00M=1 }PC=9}PR=10 JMW=0 JGOSUB 1 
000 

290 T = 0*KEY=PEEK(764)JPOKE 764,255 

300 IF KEY=7 THEN PC=PC+15IF PC = 19 THE 

N PC=18 JGOTO 290 J REM MOVE RIGHT 

310 IF KEY=6 THEN PC=PC-i:iF PC=-1 THE 

N PC=0JGOTO 290JREM MOVE LEFT 

320 IF KEY=33 THEN P=1JT=100JPC=PC+1JG 

OTO 390JREM SHOOT ARROW 

330 IF KEY=12 THEN 600JREM MOVE TO NEX 

T ROOM 

340 IF MW THEN POSITION MW,9J? *6*," "J 
CHR*(38+(MW/2=INT(MW/2)))JCHR$(39-(MW/ 
2=INT(MW/2)))J" "J MW=MW-1 
350 IF MW=1 THEN POSITION MW,9S? *6J" 
"JMW=17 

360 IF KEY=255 OR PC=0 OR PC=18 THEN 2 
90 

370 SOUND 0,200,8,8JG0SUE: HOOJSOUND O 
,0,0,0* POSITION PC,PR}? *6}" "}CHR$<35 
+(PC/2=INT(PC/2)) + 128)}" " 

380 GOTO 290 

385 REM power IS LOWER CASE INVERSE 
390 POSITION 7,3 J ? *6*,"power "}PJPOW=P 
EEK(764)JPOKE 764,255 5 IF P0W=33 THEN P 
=P+1 JIF P=6 THEN P=5 

400 IF POW-28 THEN P=P-1JIF P=0 THEN P 
= 1 

410 IF P0WO12 THEN 390 

42 0 FOR X=100 TO 0 STEP -55SOUND 0,X,1 

2 ,io ;next x ;sound o, 0 , 0 , 0 :t=t/p:fqr x= 

PR-1 TO 4 STEP -1J LOCATE PC,X,V 

1 



425 REM PERCENT SIGN (%) IS INVERSE 
430 POSITION PC,X 5? *6 :GOSUE! 11.005 

POSITION PC,X 5 ? #65 CHR$ (V) 5 NEXT X 
440 IF V=:L74 OR V = 142 OR 0 = 14 THEN 460 
5 REM THROUGH THE TUNNEL 
445 REM PERCENT SIGN (X.) IS INVERSE 
450 FOR X = 4 TO PR 5 LOCATE PC,X,V5POSITI 
ON PC ,X 5? *6}"%" 5 GOSUE: 1 1 0 0 5 POSITION P 
C »X 5 ? : f6 JCHRt < V) 5 NEXT X5GOTO 1380 
460 PC=PC-1JIF V=14 THEN V=15GOTO 490 
470 IF V=174 THEN V=25GOTO 490 
480 V=3 

490 R3=R00M 5 F OR Rl = l TO P5R2=C(R3,V ) 5V 
=INT(RND(1 )*3 ) + l♦R3=R2 5 IF R3=CREATURE 
AND RlOP THEN W=15GOTO 520 
500 NEXT R15 IF R3=CREATURE THEN 1.190 5R 
EM GOT IT 

505 REM MISSED IS INVERSE 

510 A=A-15 POSITION A,0 5? *6 5" "5POSITI 

ON 7,35? *6 5 "MISSED " 5 T = 1 0 0 5 GOSUE: 110 

0 5IF A=0 THEN 1200 5REM YOU LOOSE 

520 IF W=1 OR MW>0 THEN V=INT<RND(1)*3 

)+:l»CREATURE=C( CREATURE , V) 5W=0 5REM MOV 

E THE CREATURE 

530 IF CREATURE=ROOM THEN 12005REM CRE 
ATURE GOT YOU -- YOU LOOSE 
540 HENS=INT < RND(1)*20) +15 IF HENS=ROOM 
THEN GOSUE! 1250 5GOTO 560 5REM MOVE THE 
MARSH HENS - YOU CAN MOVE 
550 GOSUE! 10 0 0 1 GOTO 290 5REM PLAY AGAIN 

560 ROOM=INT(RND<1)#20)+15IF ROOM=HENS 
THEN 560 5REM NEW ROOM FOR YOU 
57 0 GOSUE! 1000 5IF ROOM=PITl OR ROOM=F'I 
T2 THEN 1350 5REM YOU REALLY LOOSE 
580 GOTO 290 

590 REM MOVE TO THE NEXT ROOM 

60 0 IF POO AND PC<5 THEN V=l!GOTO 64 0 

610 IF PC>6 AND PC<11 THEN V=25GOTO 64 
0 

620 IF PC>12 AND F'C<17 THEN V=3 5GOTO 6 
40 

630 GOTO 290 

64 0 ROOM=C(ROOM>V)5GOSUB 1 000 5 REM GO T 
O NEW ROOM 

65 0 IF ROOM=F'IT 1 OR R00M=PIT2 THEN 135 
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ojrem you loose - down you go 

660 IF ROOM=CREATURE THEN 1200JREM YOU 
LOOSE AGAIN 

670 IF ROOM-HENS THEN GOSUB 1250 5 GOTO 
700JREM YOU MODE 

680 HENS<INT<RND<1)*20>+lSIF RQOM=HENS 
THEN GOSUB 1250 5 GOTO 70 0 
690 GOSUB 10SO‘GOTO 290 
700 ROOM<INT<RND<1>*20)+lJIF ROOM=HENS 
THEN 700 

710 GOTO 570JREM MODE TO NEW ROOM 

995 REM y IS THE CODE FOR CLEAR THE SC 

REEN 

1000 POKE 712,0JMW=0J? *6JJROOM*=R* 
( R00M*16~:L5 , R00M#16 ) J FOR P = 16 TO 6 STE 
P -1{IF ROOM*<P»P)»" " THEN NEXT P 
1010 P=10 -P/2JPOSITION P , 1J ? *6}ROOM*J 
FOR P=1 TO A J POSITION P-1,0J? #6{ ,, % ,, {N 
EXT P 

1015 REM NEXT LINE CONSISTS OF FOUR CO 
NTROL N'si FOUR INVERSE PERIODS, AND F 
OUR INVERSE SPACES. 

1020 FOR X=-1 TO 8 J POSITION 2,XJ? *6{" 
.... "J NEXT X JPOSITION PC,PR 

J? : l6 } " *" 

1030 FOR X=1 TO 3JIF C<ROOM,X)=CREATUR 
E THEN MW=17 

10-10 IF C < ROOM , X )“PIT 1 OR C<ROOM,X)=PI 

T2 THEN POKE 712,150 

1050 IF C<ROOM,X)OHENS THEN 1070 

1060 T=50 J FOR V = 1 TO 4JS0UND 0,200,1 0 , 

10JGOSUB 110 0 J SOUND 0,250,10,10 JGOSUB 

110 0 J NEXT VJSOUND 0,0, 0,0 

1070 NEXT X 

1090 RETURN 

1100 FOR DELAY=1 TO T J NEXT DELAY 5 RETUF< 
N 

1190 POSITION 1,2 J ? *6;"Y0U GOT IT! !"5 
GOTO 1380 

1195 REM PLUS SIGN, COMMA, AND DASH AR 
E INVERSE 

1200 KLOJFOR X-0 TO PC-1JPOSITION X,P 
RJ? *6{" +, -" J SOUND 0,2.00,12,10JGOSUB 
110 0JNEXT XJSOUND 0,0, 0,0 
1210 GOTO 1380 

1250 T-50J FOR X = 1 TO PC+1JLOCATE X,3,V 
5 POSITION X,3 J ? 16 J CHR*(168+(X-INT < X/3 
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)#3) ) ?GOSUB 1100 :POSITION X,3 
1260 ? =#6, CHR$ < V > ? NEXT X5GOSUB 1310?FO 
R X-4 TO F‘R-1 ? LOCATE PC+1, X , V ? POSITION 
PC+1,X?? #6?CHR$(168+ <X-INT(X/3)*3 ) ) 
1270 GOSUB 110 0? POSITION PC+1,X?? *6?C 
HR$(V) ?NEXT X 5 POSITION PC+1,PR-1?? *6? 
CHR$(169)JGOSUB 1310?V=0?V1=0 
1280 FOR X=PR-1 TO 3 STEP -1?IF X<>9 T 
HEN LOCATE PC+1,X,U?LOCATE PC+1,X+1,V1 

1290 POSITION PC+1,X?? *6?CHR*(168+<X- 
INT(X/3)*3 ))JPOSITION PC+1,X+1J? *6J M # 

II 

1300 GOSUB 1100?POSITION PC+1,X?? *6?C 
HRi(9)5POSITION PC+1,X+1?? #6}CHR$(V1) 
‘.NEXT X 

1310 FOR V=1 TO 4 ?SOUND 0,200,10 ,10?GO 
SUB 110 0*SOUND 0,250,10 , 10 ? GOSUE'- 1100? 
NEXT U?SOUND 0,0 , 0 , 0JRETURN 
1350 LOCATE PC+1 ,7,U1?ROOM$(1)=CHR$(VI 
)J ROOM$(16)=RQOM$(1)?R00M$(2)=ROOM$ 
1360 T=10?FOR X=2 TO 11?POSITION 2,X?? 

: I6 ? ROOM$ ? NEXT X?FOR X=4 TO ll?LOCATE 
9,X,V?POSITION 9 ,X?? *6;"*" 

1370 GOSUB 110 0? SOUND 0,X#10,12,10?POS 
IT'.ION 9 , X ? ? #6 ? CHR$ (U) ? NEXT X? SOUND 0, 
0,0,0?REM FALLING 

1380 POSITION 5,9?? *6‘,"press START" ?I 
F PEEK (53279) 06 THEN 1380 
1390 GOTO 230 


arrays. There are 20 rooms. Each room leads into three other 
rooms. The rooms this room connects to are stored in the C array. 
The name of the room is stored in R$. ROOM$ is used to read the 
name from the data list. 

Line 60 checks to see how much memory is in the computer. 
This amount is decreased by 8. This new value is the beginning 
location of the character set that will be moved into RAM. This 
value is stored in memory location 204. The beginning location of 
the ROM-based character set is stored in location 206. This infor¬ 
mation is used in the assembly language subroutine that moves the 
character set from ROM into RAM. 

Line 70 reads the code for the assembly language subroutine 
and places it into memory locations 1536-1555; line 80 contains the 
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decimal code for the routine. 

Line 90 changes the screen to graphics 18. This is graphics 2 
with no text window. The computer sees the USR command to ex¬ 
ecute the assembly language subroutine that begins in location 
1536. When the computer returns to this line, it POKEs the value 
of A into memory location 756. This tells the computer to use the 
character set in RAM. 

Line 100 finds the address of the first character in the character 
set that will be changed. This address is stored in the variable 
CHARSET. The computer reads the codes for the new characters 
and stores them in the area set aside for the character set. 

Lines 110-150 contain the decimal codes for the new characters. 

Line 170 clears the information from R$, because the computer 
does not clear out the area set aside for strings and arrays when 
a program is run. 

Line 180 reads the information from the data lines and stores 
it in R$ and C array. Each time the loop is executed, the computer 
will read the name of the room and the numbers of the three rooms 
connected to this room. 

Lines 190-220 contain the names of the rooms and the con¬ 
necting room numbers. 

Line 230 picks one of the 20 rooms for the creature. The 
number of the room the creature is in is stored in the variable 
CREATURE. The first room cannot be used for the creature, the 
pits, or the flying creatures. 

Line 240 picks a number for the bottomless pit. The computer 
compares this number with the room number of the creature. If 
they are both the same, the computer picks another number for 
the pit. The creature cannot live in the pit. 

Line 250 picks a number for the second pit. There are two pits 
in this program. The computer compares the number of this pit 
with the last pit and the creature’s room. If this number is the same 
as either of the others, this line is repeated. 

Line 260 picks a room for the flying creatures. Their room 
number is stored in the variable HENS. Since they fly, they can 
be in any room, even the bottomless pits! 

Line 280 begins the game. The variable A is the number of 
arrows you have. You begin the game with five arrows. The ROOM 
variable is the room you are in. You begin in room 1. The variables 
PC and PR indicate the row and column in which the player will 
be printed. The variable MW is set to 0. When this variable is not 
0, the worm moves across the screen. The computer uses the 
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subroutine at line 1000 to put the room and the three doors on the 
screen. 

Line 290 clears the variable T, then gets the value of location 
764. The computer POKEs this location with 255 to clear it. 

Line 300 checks to see if the right arrow key was pressed. If 
it was, the computer increases the value of PC by 1; if the value 
of PC is equal to 19, it is reset to 18. The player must stay on the 
screen. 

Line 310 subtracts 1 from the value of PC if the left arrow key 
is pressed. If the value of PC is less than 1, the value of PC is reset 
to 0. 

Line 320 checks to see if the space bar has been pressed. If 
it has, the variable P is set to 1, the variable T is set to 100, the 
column variable is increased by 1, and the computer is sent to line 
390. 

Line 330 checks to see if the Return key has been pressed. If 
it has, the computer goes to line 600 to move the player. 

Line 340 checks the variable MW. If it is not 0, the player is 
near the swamp creature’s room. The two characters that make 
up the worm are printed on the screen. The way the command is 
written for printing and the characters, the characters will alter¬ 
nate their pattern depending on the value of MW. When MW is 
an odd number, character 38 will be printed before character 39. 
When MW is an even number, character 39 will be printed before 
character 38. This is because the statement 

MW/2 = INT (MW/2) 

is equal to 1 when it is true, and 0 when it is false. This value is 
added to 38 and 39. After the worm is printed, the last position 
is erased and the variable MW is decreased by 1. This keeps the 
creature moving across the screen. 

Line 350 erases the character from the screen when MW 
reaches 1 and resets MW to 17. If the worm was not cleared from 
the screen, it would remain there until the player changes rooms 
because the last segment of the worm is erased in the line where 
the worm is printed. If it is at the beginning of the line, the com¬ 
puter will not wrap around to the left edge of the screen. 

Line 360 checks to see if the variable KEY is 255, 0, or 18. 
If it is, the computer is sent to line 290 to get another input. 

Line 370 makes a sound and prints the player in the new loca¬ 
tion. There are two characters that can be used as the player. When 
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the value of PC is even, the second, shorter character is printed. 
When PC is odd, the taller character is printed. The positions on 
both sides of the character are erased. 

Line 380 sends the computer back to line 290 for another entry. 

Line 390—when the space bar is pressed, the power value is 
printed at the top of the screen. The computer looks at location 
764 to see if the space bar has been pressed again. If it has, the 
power level is increased by 1. The power level cannot exceed 5. 

Line 400 checks to see if the Escape key has been pressed. If 
it has, the power level is decreased by 1. The power level can never 
go below 1. 

Line 410 sends the computer to line 390 if the Return key has 
not been pressed. The computer loops through these lines until the 
Return key is pressed. 

Line 420 shoots an arrow through the doorway the player is 
standing in front of. The computer makes a sound, then begins a 
FOR-NEXT loop that prints the arrow on the screen. The computer 
uses the LOCATE command to get the value of the character over 
which the arrow is going to be printing. It stores this value in the 
variable V. 

Line 430 prints the arrow on the screen, uses the subroutine 
in line 1100, then prints the character on the screen, erasing the 
arrow. The loop continues until the arrow reaches the top of the 
door. 

Line 440 looks at the last value of V. If it is 174, 142, or 14, 
then the arrow went through the doorway and into the tunnel. The 
computer is sent to line 460. 

Line 450 reverses the direction of the arrow. Since the player 
was not in front of a door when the arrow was shot, the arrow has 
hit the wall and is now rebounding toward the player. The com¬ 
puter uses the same routine in reverse. The LOCATE command 
gets the value of the character over which the arrow will be 
printing. The arrow is printed on the screen, and the subroutine 
at line 1100 delays its movement for a few seconds. The character 
that was in that location is printed back on the screen. The loop 
continues until the arrow is back on the bottom of the screen. The 
computer is then sent to lane 1380. The game is over, the player 
got shot with its own arrow. 

Line 460—the value of PC is decreased by 1 so the player is 
in his or her original position on the screen. If the value of V is 
14, the arrow was shot through the first room. The value of V is 
changed to 1. 
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Line 470 changes the value of V to 2 if the value of V is 174. 

Line 480 changes the value of V to 3. 

Line 490 stores the value of ROOM in variable R3. ROOM is 
the room number the player is in. The FOR-NEXT loop takes the 
arrow through a number of rooms based on the power of the ar¬ 
row. The variable R2 is the connecting room based on the value 
of V. Then the computer chooses a number from 1 to 3; this is the 
direction the arrow will go in if the arrow travels through any more 
rooms. The value of R2 is moved into the variable R3. If the 
creature is in the same room the arrow is in, and this is not the 
last room the arrow will be in, the computer goes to line 520. The 
creature is disturbed. 

Line 500 continues the loop. If the arrow lands in the room 
where the creature is, he is captured. The computer goes to line 
1190. 

Line 510 decreases the number of arrows the player has. The 
message is printed on the screen, and the computer uses the tim¬ 
ing loop in line 1100. If there are no arrows left, you lose the game. 

Line 520 checks if the variable W is set to 1, or the value of 
MW is greater than 0. The creature is disturbed and will move. 
The computer chooses one of the three possible directions in which 
the creature can move. The creature is moved to the new room and 
the variable W is reset to 0. 

Line 530 checks to see if the creature has moved into your 
room. If it has, the computer goes to line 1200. You lose. 

Line 540 gives the flying creatures a chance to move. If they 
move into the room you are in, the computer goes to the subroutine 
in line 1250 to move you, then to line 560. 

Line 550 restores the screen and goes back to line 290 to play 
the game. 

Line 560 chooses a new room for you to land in. If the room 
you are in is chosen, the line repeats until the computer finds you 
a new room. 

Line 570 uses the subroutine in line 1000 to print the room on 
the screen. If you have been dropped into one of the pits, the com¬ 
puter is sent to line 1350, where you fall down the screen into the 
bottomless pit. 

Line 580 sends the computer back to line 290 to finish the game. 

Line 600 moves the player to the next room. If the player’s col¬ 
umn value is between 1 and 4, the player stands before the first 
doorway. The value of V is set to 1 and the computer goes to line 
640 to move. 
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Line 610 checks to see if the column value of the player is be¬ 
tween 7 and 10. If it is, the player is in front of the second or mid¬ 
dle doorway. The value of V is set to 2 and the computer goes to 
line 640. 

Line 620 checks to see if the column value of the player is be¬ 
tween 13 and 16. If it is, the player is in front of the third doorway 
and variable V is set to 3. 

Line 630 sends the computer back to line 290. The player can¬ 
not move through the wall. 

Line 640 changes the value of the ROOM variable to the value 
pointed to by the variable V. The computer uses the subroutine 
in line 1000 to update the screen. 

Line 650 checks to see if the player fell into the pit. If he did, 
the computer is sent to line 1350 to end the game. 

Line 660 checks to see if the player wandered into the swamp 
creature’s room. If he did, the computer is sent to line 1200 and 
the player loses the game. 

Line 670 checks to see if the flying creatures are in this room. 
If they are, the computer uses the subroutine in line 1250 to move 
you up. When the computer returns to this line, it goes to line 700 
to move the flying creatures. 

Line 680 picks a room for the flying creatures. If they move 
into your room, the computer uses the subroutine at line 1250 to 
move you. Then the computer uses the routine at line 700 to move 
the flying creatures again. 

Line 690 sends the computer to line 1030 to update the infor¬ 
mation, then to line 290 to continue the game. 

Line 700 picks a new room for the flying creatures. If the com¬ 
puter picks the room they are currently in, the line repeats itself 
until the flying creatures move. 

Line 710 sends the computer to line 570 to see if the player 
is in the pits. 

Line 1000 prints the room and the doorways on the screen. The 
memory location 712 is POKEd with 0 to blacken the screen. The 
screen is cleared. The name of the room the player is in is moved 
into ROOM$. The FOR-NEXT loop looks for the end of the word 
in ROOMS. 

Line 1010 finds the center of the word and prints the name of 
the room centered on the screen. The arrows are printed in the 
top left corner of the screen. 

Line 1020 prints the doorways on the screen. The characters 
between the quotation marks are four Ctrl-Ns, a space, four inverse 
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periods, a space, and four inverse spaces. The player is printed on 
the screen. It is an inverse pound sign. 

Line 1030 checks to see if the swamp creature is in any of the 
three adjoining rooms. If it is, the variable MW is set to 17. The 
worm will crawl across the screen when the computer returns to 
the main part of the program. 

Line 1040 checks to see if any of the adjoining rooms is a pit. 
If it is, the screen color is changed. 

Line 1050 checks to see if the flying creatures are in adjoining 
rooms. If they aren’t, the computer is sent to line 1070. 

Line 1060 makes the warning sound if the flying creatures are 
in an adjoining room. 

Line 1070 continues the loop. 

Line 1090 returns the computer to the main program. 

Line 1100 is a delay loop. The value of the variable T deter¬ 
mines the length of the delay. The computer returns to the main 
program after executing this line. 

Line 1190 is used when the player gets the creature. The 
message is printed on the screen and the computer goes to line 1380 
to end the game. 

Line 1200 moves the swamp creature across the screen and 
onto the player. This line is used when the player and the swamp 
creature occupy the same room. The characters that make up the 
swamp creature are printed in inverse. 

Line 1210 sends the computer to line 1380 to end the game. 

Line 1250 is used when the flying creatures are in the same 
room as the player. The FOR-NEXT loop prints the creature fly¬ 
ing across the screen. The character that is on the screen in the 
position the creature will be printed in is stored in the variable V. 

Line 1260 prints the character on the screen and continues the 
loop. The loop continues until the creature is above the player. The 
following loop brings the creature down onto the player. Again, 
the character over which the creature will be printed is stored in 
variable V. 

Line 1270 continues the loop until the creature is on top of the 
player. 

Lines 1280-1300 contain the routine that picks the player up. 
The creature and the player fly to the top of the screen. 

Line 1310 makes a sound and the computer returns to the main 
program. 

Lines 1350-1370 drop the player down into the pits. The en¬ 
tire ROOM$ is filled with the character for this particular door- 
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way. This pattern fills the screen. The player begins at the top of 
the screen and falls to the bottom. The computer makes a falling 
sound. 

Lines 1380-1390 end the program. The message is printed on 
the screen and the computer loops here until the Start key is 
pressed. When it is, the computer goes back to line 230. To end 
the game, press the System Reset key. 
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Chapter 3 



Word Games 

Whether you enjoy crossword puzzles, anagrams, word searches, 
or other puzzles involving letters or words, this chapter has several 
games for the young and old. 

JOTTO 

Objective of the game: To figure out the word in the fewest 
number of tries. 

Directions: JOTTO is a traditional pencil-and-paper game 
similar to Mastermind or Bagels. Instead of playing with numbers 
or colors, words are used. This makes the game easier for young 
children, who may be able to deduce the word from the letter com¬ 
binations rather than by the clues: how many letters are correct 
and in the correct place. 

The game can be played by one or two players. If the game 
is played by two players, each player receives a different word. 
There are three levels of play. The words can be four, five, or six 
letters long. 

A question mark appears on the screen and the computer makes 
a sound to indicate it is ready to receive a word. In the one-player 
version, the question mark is near the center of the screen. In the 
two-player version, the question mark for the first player is near 
the left edge of the screen. Enter a word and press the Return key. 
The word should be made up of the number of letters chosen at 
the beginning of the game. If an incorrect letter is entered, press 
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the Delete key and the letter will be erased. After you have entered 
your word, the computer compares your word with its word. Two 
numbers appear on the screen. The first number tells you how many 
letters are correct and in the correct position. The second number 
indicates how many letters are correct but in the wrong position. 

If this is a two-player game, the second player’s question mark 
appears near the center of the screen. This player should now en¬ 
ter a word. The game continues until the correct word is entered 
or 10 guesses have been made. When the correct word is entered, 
the program ends and the computer congratulates the player. If 
the correct word is not entered within 10 tries, the computer tells 
you the word. In either case, pressing the Start key will begin the 
program again. To end the program, press the System Reset key. 
Figure 3-1 is the flowchart for this program, and Listing 3-1 is the 
code. 

Line 50 sets aside the string space for this program. WORDl$ 
stores the word for the first player. WORD2$ holds the word for 
the second player. TEMP$ is a temporary storage space, and 
GUESS$ holds the word entered by the player. 

Line 60 clears the screen and sets the computer for graphics 
2 with no text window. 

Line 70 asks for the number of players. The question mark at 
the end of the message is needed because the Input command will 
not be used. If the question mark were not included, the computer 
would not print one on the screen. 

Line 80 opens the keyboard so a key can be pressed and read 
without having to press the Return key. The value of the pressed 
key is stored in the variable P. The keyboard is closed. 

Line 90 compares the value of the variable P to 49 and 50. Only 
two values are acceptable for this question—the 1 and 2. The ASCII 
value of the 1 key is 49, and the ASCII value of the 2 key is 50. 
If the value of P is greater or less than these two values, some other 
key was pressed and the computer repeats line 80 until a correct 
response is given. 

Line 100 prints the number on the screen. 

Line 110 subtracts 48 from the value of P to arrive at the ac¬ 
tual number pressed. The value of the 1 key is 49, so if the 1 key 
was pressed, P would contain 49. By subtracting 48 we arrive at 
the actual number pressed. 

Line 120 asks for the level of play. There are three levels of 
play in this game. The words can be four, five, or six letters long. 

Line 130 opens the keyboard so it can be read without using 


135 



( START ) 


Set aside memory 
for strings, 
change screen 
mode 


Get number 
of players 



Get number 
of letters 
in word 



Choose a word 
based on 
number of 
letters 


I 


Get a word 
from 
player 





136 






1 



137 












Listing 3-1. Jotto. 


10 REM JOTTO - GUESS THE WORD FROM THE 
CLUES 

20 REM CHARTER 3 - WORD GAMES 
3 0 REM BY L«M. SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1983 

50 DIM W0RD1*<6) ,W0RD2*<6> ,TEMF'*(6) ,GU 
ESS*(6) 

60 GRAPHICS 18JREM CLEAR THE SCREEN AN 
D SET FOR GRAPHICS 2 WITH NO TEXT WIND 
OW 

7 0 POSITION 1,4 J? *6*, "HOW MANY PLAYERS 

OH ♦ 

• t 

so open *2,4,o,"k: m :get *2,pjclose *2: 

REM OPEN THE KEYBOARD FOR A READ - STO 
RE NUMBER OF PLAYERS IN 'P' 

9 0 IF P<49 OR F‘>50 THEN 80 

100 POSITION 19,4J? *6JCHR*(P)JREM SHO 

W THE NUMBER 

110 P=P-49JREM GET THE ACTUAL NUMBER O 
F PLAYERS 

120 POSITION 1,7J? *6}"HOW MANY LETTER 
S <4-6>?"J 

130 OPEN *2,4,0,"KJ"JGET *2,L5CLOSE *2 
JREM GET THE NUMBER OF LETTERS FOR THE 
WORDS 

140 IF L<52 OR L>54 THEN 130JREM ONLY 
ACCEPT NUMBERS 3-6 

150 POSITION 10,8J? ♦6}CHR*(L)JLl=L-48 
JL=(L-52)*10+1000 JREM CALCULATE THE BE 
GINNING OF THE DATA 

160 W=INT(RND<1>*10>5WL=L+WJREM CHOOSE 
ONE DATA LINE BASED ON THE LEVEL. 

170 RESTORE WL J REM SET POINTER TO THAT 
LEVEL 

180 W=INT<RND<1)*5)+1JREM CHOOSE ONE W 
ORD OF THE GROUP 

190 FOR R=1 TO WJREAD WORDl$JNEXT R 
200 IF P=1 THEN 250 

210 W=INT<RND(1)*10) J WL=L+W J REM CHOOSE 
ONE DATA LINE BASED ON THE LEVEL 
220 RESTORE WL J REM SET POINTER TO THAT 
LEVEL 

230 W=INT(RND(1)*5)+lJREM CHOOSE ONE W 
ORD OF THE GROUP 
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24 0 FOR R=1 TO W * READ W0RD2$1NEXT R 
250 GRAPHICS IS1REM CLEAR THE SCREEN 
260 R=2JIF P = 1 THEN Cl=51 C2==0 1 GOTO 280 
JREM SET ROW AND COLUMN FOR 1 PLAYER 
270 Cl=l1C2=11JREM SET COLUMNS FOR 2 P 
LAYERS 

280 POSITION 2,0 5? *6J"ENTER YOUR CUES 
S" 

285 REM QUESTION MARK IS INVERSE 
290 POSITION C1,RJ? #6J m ?"JGOSUB 40 0 
300 C=Cl-llTEMP*=WORDl$lGOSUE: 480 
310 IF C2 THEN POSITION C2,R1? *6}"?": 
GOSUB 4001C=C2-1 1TEMP$=W0RD2*1GOSUB 48 
0 

320 R=R+1JIF R<12 THEN 290J REM INCREAS 
E 'R' FOR NEXT ROW - ALLOW 10 TRIES 
330 GOTO 750 

40 0 FOR X = :L TO 5 5SOUND 0,20,10,101 NEXT 
XJSOUND 0,0,0,0 1 REM FIRST BEEP 
410 FOR X=1 TO 101 NEXT XI REM SILENCE 
420 FOR X=1 TO 5 J SOUND 0,20,10,101 NEXT 
XJSOUND 0,0,0,0JREM SECOND beef- 
430 RETURN 

480 FOR X=1 TO Ll + 15 POSITION C+X,R!REM 
SET CURSOR FOR PROPER POSITON ON SCRE 
EN 

490 OPEN *2,4,0,"K1 , ‘1GET *2,k:cl.ose *2 
5 REM GET A LETTER FROM THE KEYBOARD 
500 IF K=155 AND X=L1+1 THEN 570 
510 IF K = 12 6 AND X>1 THEN X=X-11GUESS* 
(X,X)=" "1K=321P0SITI0N C+X,RJGOTO 560 


520 IF X=L1+1 THEN 490 

530 IF K>127 THEN K=K-1281 POKE 694,0 JR 
EM INVERSE KEY WAS PRESSED - RESET TO 
NORMAL VIDEO 

540 IF K>96 THEN POKE 702,64JK=K-325 RE 
M CAF’S/LOWR KEY PRESSED - RESET TO CAP 
S 

550 IF l«65 OR K>90 THEN 490JREM NOT A 
LETTER - TRY AGAIN 

56 0 ? #6*,CHR*(K) J JGUESS*<X)~CHR$<K) JIF 
K=32 THEN X=X-1 
570 NEXT X 

580 IF GUESS*=TEMP* THEN 700 

590 RIGHT = 0 5 FOR X=:L TO L.1JREM NOW CHEC 
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K THE LETTERS 

600 IF GUESS*<X,X)=TEMP*<X,X) THEN RIG 

ht=right+ijtemp*<x,x)=" •• :guess*<x,x> = 

" "iREM REMOVE THE RIGHT LETTER 

610 NEXT XJREM GET THE NUMBER FOR LETT 

ERS IN THE RIGHT PLACE 

620 CL.8E-0 5FOR X-1 TO LI:FOR Y=1 TO LI 

JREM NOW CHECK FOR LETTERS NOT IN THE 

RIGHT PLACE 

630 IF X-Y THEN 660 

640 IF GUESS*<X,X)=" " OR TEMP*<Y,Y)=" 
" THEN 660 

650 IF GUESS*<X,X)=TEMP*<Y,Y) THEN CLS 

e~clse+i:temp*(Y,Y)=" m :guess* (x,x)= n 
m :y=li:rem remove the letter 

660 NEXT Y JREM CHECK ALL THE LETTERS 
670 NEXT XJREM CHECK THE ENTIRE WORD 
68 0 POSITION C+2+L1 ,R5 ? : I6 JCHR* (RIGHT + 
48+128)J" "5 CLSE 5 REM SHOW THE NUMBERS 
690 RETURN 

70 0 GRAPHICS 181 REM CLEAR THE SCREEN 
710 POSITION 2,4:? *6}"ConGRatULatlOns 
!"JREM CONGRATULATE WINNER-nGtUtls! AR 
E INVERSE 

720 POSITION 3,6J? *6J"Y0U GOT IT! ! ! "J 
POSITION 4,8J? *6JGUESS* 

730 IF PEEK (53279 ) 06 THEN 770 JREM WAI 
T FOR START TO PLAY AGAIN 
740 RUN 

750 GRAPHICS 18JPOSITION C1,2J? #6}"Y0 
UR WORD WAS"JPOSITION C1,4J? #6JW0RD1$ 
JREM SHOW THE WORDS 

760 IF 02 THEN POSITION C2-5,8J? *6J"y 
our word was"JPOSITION C2-5,10J? *6JW0 
RD2* 


77 0 
1000 
10 01 
1002 
10 03 
10 04 

1005 

1006 
1007 
10 08 
1009 


GOTO 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


730 

OGRE 

WORM 

RIPE 

HASH 

CORK 

KNEE 

HERD 

HARM 

STAR 

GASF 


, DINE 
, BATH 
, DULL 
, DUTY 
♦ SPIN 
, HEEL 
, MINE 
, SIZE 
, DUST 
, PINE 


, ALAS 
, ROOT 
, LOOP 

, cape: 

, SANK 
, TUCK 
, LESS 
, SELL 
, WEST 
, SHOP 


, RAGE 
, CLAP 
, SLID 
, NEST 
, DUSK 
, PLUG 
, SORT 
, PITY 
, WORE 
, TEAR 


, LAZY 
, WEPT 
, THIN 
, CHAT 
, DOVE 
, POEM 
, MOON 
, COST 
, BUCK 
* ft FA ft 
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1 0 :L 0 DATA FAVOR,FIGHT,SLEPT,GUIDE,GUAR 
D 

1011 DATA TIGER,FETCH,CHILD,NORTH,DROO 
P 

1012 DATA COACH,SPLIT,CLOUD,TOWEL,WITC 
hi 

1013 DATA SKEIN,COUNT,CANDY,HUTCH,STUM 
P 

101A DATA QUILT,CREPT,TEMPT,RUSTY,CORA 
L 

1015 DATA ROBIN,WORST,DROWN,CRUEL,FAUL 
T 

1016 DATA STUDY,THUMB,BRIEF,PEACE,RINS 
E 

1017 DATA MARRY, ROYAL, SALAD, BREAD, F'ROV 
E 

1018 DATA TRUTH,APRON,AWARE,MAGIC,ANGE 
R 

1019 DATA EAGER,WORTH,GROUP,SHADE,BRAV 
E 

1020 DATA EMPIRE,RATHER,PROPER,STREAM, 
GOBLIN 

1021 DATA PICKET,HOLLOW,KIMONO,BUTLER, 
BARLEY 

1022 DATA BRAIDS,SELECT,COWARD,PILLOW, 
PREFER 

1023 DATA LINGER,BUBBLE,TICKLE,THRONE, 
CASTLE 

1024 DATA MANGER,NAPKIN,CRADLE,ACCEPT, 
GREEDY 

1025 DATA HUMBLE,SMOOTH,SADDLE,GENTLE, 
INSIST 

1026 DATA MANAGE,THOUGH,EXCEPT,BOTHER, 
UNLESS 

1027 DATA VALLEY,BREATH,CATTLE,MOMENT, 
BECAME 

1028 DATA DIVIDE,STUPID,BOUGHT,OUTFIT, 
ADVICE 

1029 DATA DOCTOR,FIGURE,CARROT,TWENTY, 

COURSE _ 

the Return key. The ATASCII value of the pressed key is stored 
in the variable L. 

Line 140 checks the value of L to make sure the key pressed 
was a 4, 5, or 6. If any other key was pressed, the computer will 
repeat line 130. 
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Line 150 prints the number of letters the words will contain 
on the screen. To get the actual number, 48 is subtracted from the 
value of L. This is stored in variable LI. The words are stored on 
DATA lines beginning with line 1000. The four-letter words are 
on the first 10 lines, the five-letter words on the second set of 10 
lines, and six-letter words on the third set of 10 lines. Since the 
AT ASCII value of 4 is 52, we subtract 52 from L, multiply this 
by 10 and add the result to 1000. If the five-letter words were cho¬ 
sen, the computer would subtract 52 from the value of L (53). This 
equals 1. Multiplying 1 times 10 equals 10; 10 added to 1000 is 
1010—the DATA line holding these words. 

Line 160 chooses a random number from 0 to 9. By adding this 
number to the line number, we arrive at a random data line for the 
words. 

Line 170 uses the RESTORE command to point to that DATA 

line. 

Line 180 chooses a random number from 1 to 5. Each DATA 
line contains five words. We will use one of these five words. 

Line 190 uses a FOR-NEXT loop to count from 1 to the value 
of W. One word will be read each time this loop is executed. When 
the computer reaches the value of W, the loop stops and the word 
the computer is using in this game is stored in the variable 
WORDl$. 

Line 200 checks the value of P. If it is 1, there is only one player 
for this game and the computer is directed to line 250. 

Line 210 chooses a DATA line for the second player. The first 
line of the words has been calculated. The DATA line the com¬ 
puter uses for the second player’s words is stored in the variable 
WL. 

Line 220 uses the RESTORE command to point to the new 
DATA line. 

Line 230 chooses a number from 1 to 5. This is the position 
of the word in the new DATA line. 

Line 240 uses a FOR-NEXT loop again to READ the words 
in the DATA line until it reaches the word for this player. 

Line 250 clears the screen and sets it for graphics 2 without 
the text window. 

Line 260 sets the variable R to indicate on which row the ques¬ 
tion mark and then the word should be printed. If there is only one 
player, variable Cl is set to 5 and variable C2 is set to 0. This is 
the column where the question mark will be printed. The computer 
is directed to line 280. The next line is used for a two-player game. 
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Line 270 sets the column variables to 1 and 11 for a two-player 
game. 

Line 280 prints a message at the top of the screen. 

Line 290 prints the question mark on the screen. Variable Cl 
indicates the column position of the question mark, variable R the 
row. The computer is sent to the subroutine at line 400 to make 
the prompt sound. 

Line 300 decreases the value of Cl by 1 and stores it in variable 
C. This variable will be used in the next subroutine to point to the 
column in which the word will begin. The word the computer chose 
is moved into TEMPS and the computer is sent to the subroutine 
at line 480 to get a word from the player. 

Line 310 is used when there are two players. If there is only 
one player, variable C2 is 0. If it is anything but 0, the computer 
uses this program line. The question mark is printed at the posi¬ 
tion indicated by variables C2 and R. The computer makes a sound 
by using the subroutine at line 400. The position of the question 
mark less one is stored in variable C, the second word the com¬ 
puter chose is moved into TEMP$, and the computer is sent to the 
subroutine at line 480 to get the second player’s guess. 

Line 320 increases variable R by 1. The next word is printed 
on the row. If the value of R is less than 12, the game continues 
with line 290. 

Line 330 sends the computer to line 750 for the end of the game. 

Lines 400-430 make the prompt sound. The sound is made in 
line 400. The FOR-NEXT loop keeps the sound on for a few 
seconds, then turns it off. The next FOR-NEXT loop is a short 
pause before the next SOUND command. After the second beep, 
the computer is sent back to the main program. 

Line 480 begins the routine that gets a guess from the player. 
The FOR-NEXT loop counts from 1 to the number of letters in the 
word, plus 1. One is added to the number of letters because the 
last key to be pressed is the Return key; if we counted up to the 
last letter, the loop would end before the Return key could be 
pressed. The cursor is positioned at the correct column and row. 

Line 490 opens the keyboard and places the value of the key 
pressed into variable K. 

Line 500 compares the value of K to 155. If it is 155 and X 
is equal to one more than the number of letters in the word, the 
computer goes to line 570. The value of the Return key is 155. By 
checking to see if all the letters have been entered, the computer 
makes sure a short word is not entered for a longer one. Line 570 
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can only be executed when all the letters have been entered. 

Line 510 checks to see if the Delete key has been pressed. If 
it has been pressed and the value of X is greater than one, the line 
will continue. If X is 1, no letters have been entered and there is 
nothing to erase. If letters have been entered, the value of X is 
decreased by 1. The entered letter is erased from GUESS$, the 
value of K is set to 32 (a space) and the position is set so the letter 
on the screen can be erased. The computer is directed to line 560 
to erase the letter on the screen. 

Line 520 checks to see if any more letters can be entered. If 
the value of X is greater by 1 than the number of letters needed 
for the word, the computer is sent to line 490. It can only accept 
a Delete key or a Return key. 

Line 530 checks to see if the value of K is greater than 127. 
If it is, the ATARI key has been pressed. To correct it, subtract 
128 from the value of K and POKE location 694 with a 0. 

Line 540 checks to see if an uppercase letter was entered. If 
the value of K is greater than 96, the key was lowercase. To get 
the uppercase value, 32 is subtracted from the value of K and the 
location 702 is POKEd with 64. This resets the keyboard to up¬ 
percase. 

Line 550 sends the computer to line 490 if the value of K is 
less than 65 or greater than 90. Only letters are acceptable. Values 
out of this range indicate that the key pressed was not a letter. 

Line 560 prints the pressed letter on the screen. It is stored 
in GUESS$. If the value of K is 32 (a space), the value of X is 
decreased by 1. 

Line 570 continues the loop. 

Line 580 compares the word the player entered (GUESS$) with 
the word the computer chose (TEMP$). If both words are the same, 
the computer is sent to line 700 to end the game. 

Line 590 sets the variable RIGHT to 0. This counts the number 
of letters in the player’s word that are in the same position as the 
computer’s word. The FOR-NEXT loop starts with the first letter 
and ends with the last letter of the word. 

Line 600 compares a letter in one position with the letter in 
the same position in the computer’s word. If both letters are the 
same, variable RIGHT is increased by 1. The letter is removed from 
the computer’s string and the player’s string. 

Line 610 continues the loop until all the letters have been 
checked. 

Line 620 sets variable CLSE to 0. This variable will keep track 
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of how many letters are the same in both words, but in different 
positions. Two FOR-NEXT loops are used. The first points at the 
position in the player's word, while the second points to the com¬ 
puter’s word. 

Line 630 sends the computer to line 660 if both X and Y are 
the same value. We already compared the strings letter for this let¬ 
ter; we do not need to do it again. 

Line 640 sends the computer to line 660 if either position is 
empty. No need to compare empty places, either. 

Line 650 compares the letter in GUESS$ with the letter in 
TEMP$. If they are both the same, variable CLSE is incremented 
by 1. The letters are the same, but in different positions. Variable 
Y is set to the last position because there is no letter left to com¬ 
pare with the rest of the letters in this word. 

Lines 660 and 670 continue the loop until all the letters and 
positions have been checked. 

Line 680 prints the number of letters that are the same and 
in the same positions on the screen, then prints the number of let¬ 
ters that are the same but in different positions. By adding 48 and 
128 to the value of RIGHT, the number in the correct position is 
printed in blue. 

Line 690 returns the computer to the main program. 

Lines 700-710 congratulate the winner. The first person to 
guess the word is the winner. 

Lines 720-730 loop until the Start key is pressed. Then the pro¬ 
gram is run again. 

Lines 740-760 show the correct word. 

Line 770 sends the computer to line 720 to wait for the Start 
key. To end the program, press the System Reset key. 

Lines 1000-1029 contain the words for this program. These 
words can be changed as long as four-letter words replace four- 
letter words, etc. 

ROBOTMAN 

Objective of the game: To identify correctly the word 
before the robot disappears. 

Directions: This program is similar to the popular Hangman 
game. Children, especially, enjoy the challenge of trying to guess 
the correct word in the fewest number of tries. 

In this game, the letters of the alphabet appear on the screen 
along with a robotman. The number of question marks on the screen 
represent the letters in the word. There is an arrow pointing to the 
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letter A. To move the arrow, press the right arrow key or the left 
arrow key. When the arrow is pointing to the letter you want to 
enter, press the Escape key. The letter will disintegrate on the 
screen. If the letter belongs in the word, it will replace a question 
mark. If the letter is not part of that word, a portion of the robot 
will disappear. 

If the entire robot disappears, the correct word will appear on 
the screen just above the question marks. If the entire word ap¬ 
pears on the screen within 10 tries, a message appears on the 
screen. 

To continue the game with the same set of words, press any 
key. To continue the game with a different set of words, press the 
Select key on the computer. 

The number of words you enter correctly and the number of 
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words you miss are printed near the bottom of the screen. Figure 
3-2 is the flowchart for this program; Fig. 3-3 is the character set, 
and Listing 3-2 is the code. 

Line 60 sets the display to graphics 1 without a text window. 

Line 70 finds out how much memory is available on your system 
and subtracts 8 from this number. This is the equivalent of sub¬ 
tracting 2K from the amount of memory in the system. This number 
will be the first byte of the new character set. This value is stored 
in location 204. The number 224 is stored in location 206. This is 
the beginning byte of the character set in ROM. These memory 
locations are temporary storage units used in the following assembly 
language program. 

Line 80 reads the assembly language program from line 90 into 



Fig. 3-3. Character set for Robotman. 
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Listing 3-2. Robotman. 


10 REM ROBOTMAN - A VARIATION OF HANGM 
AN 

20 REM CHAPTER 3 - WORD GAMES 

30 REM BY L. M * SCHREIBER FOR TAB BOOKS 

TO REM COPYRIGHT 1983 

50 DIM WORD*(10),BASE*<100),L*<1),ANSW 
ER$( 10 ) 

60 GRAPHICS 17JREM CLEAR SCREEN - GRAB 
HIC 1/NO TEXT WINDOW 

70 A=PEEK(106)-8iPOKE 20T,AJPOKE 206,2 
2TJREM PLACE NEW CHARACTER BASE IK ABO 
VE DISPLAY LIST 

80 FOR X ~ 15 3 6 TO 1555iREAD BJPOKE X,BJ 
NEXT X * REM MOVE THE MACHINE LANGUAGE S 
UBROUTINE 

90 DATA '.LOT, 162, T, 160,0,177,205, ITS, 20 
3,200,208,2T9,230,206,230,20T,202,208, 
2 T 2,9 6 

100 Q=USR<1536)JREM RUN THE MACHINE LA 
NGUAGE SUBROUTINE 

110 POKE 756,At REM TELL THE COMPUTER W 
HERE THE CHARACTER SET IS 
120 CHBASE=A*256 JREM DECIMAL ADDRESS O 
F CHARACTER BASE 

130 FOR X=2T TO 1195READ BJPOKE CHBASE 
+ X,B 5 NEXT X J REM READ IN THE NEW CHARAC 
TER SET 

1T0 DATA 1,3,7,15,31,63,127,255 

150 DATA 255,255,255,255,255,255,255,2 


160 

55 

170 

3 

180 

2 

190 

0 

2.0 0 
210 
TO 
22 0 
230 
2T0 


DATA 128,192,22T,2T0,2T8,252,25T , 2 

DATA 25T,252,2T9,2T3,231,207,159,6 

DATA 127,63,159,207,231,2T3,2T9,25 

DATA 255,255,255,255,231,195,153,6 

DATA 255,255,127,127,63,63,31,31 
DATA 255,255 » 25T,25T,2T8,2T8,2T0,2 

DATA 255,255,126,126,60,60,2T,2T 
DATA 2T,60,153,195,195,195,195,195 
DATA 81,0,37,0,8T,0,69,0 
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250 DATA 0,0,37,0,84,0,0,0 

260 W=INT(RND <1)*10 ) 5BASE* <1) = " ":BABE 

* <:L 0 0 ) = " "5 BASE* (2 ) -BASE* 5 WORD*=BASE* 5 
REM CLEAR THE OLD WORDS FROM STRINGS 
270 RESTORE 1000+W*10 

28 0 FOR X = 1 TO 9:1 STEF' 10 * READ ANSWER* 

* REM GET THE WORDS FROM THE LIST 

290 BASE* (X) : =ANSWF.R* 5 NEXT X5REM PLACE 
THE WORDS IN THE STRING 
300 POSITION 12,75? #6}"****%"5PQSITIO 
N 12,8 J? #6 5"*&*'*"5 POSITION 12,95? #6 
5 "**<**" 

310 POSITION 12,10 5? *65 ")****" 5REM F'R 
INT THE HEAD 

320 POSITION 13,115? *65"#*%"5 POSITION 
11,125? #6}"♦*****%"5POSITION 11,135? 
* 6 }"* *** *" 

330 POSITION 11,145? *65"* &&& *"5F'OSI 
TION 11,155? *65", *** ,"5POSITION 13, 
165? *65"***" 

340 POSITION 13,175? #6}"* *"5 POSITION 
13,185? *65"* *"5POSITION 13,195? *65 
"+ +"5REM PRINT ARMS AND TORSO 
350 REM PRINT THE ALPHABET AND SCORES. 

ROBOT IS IN INVERSE LOWER CASE, HUMA 
N IN LOWER CASE 

360 POSITION 2,05FOR X=65 TO 775? *6JC 
HR*(X+128)}5 NEXT X 5 REM PRINT HALF OF A 
L.PHABET 

370 POSITION 2,15? *65" A,, 5REM PRINT AR 
ROW - INVERSE VIDEO 

38 0 POSITION 2,25FOR X=78 TO 90 5? *6}C 
HR*< X+128)> 5 NEXT X 5REM PRINT THE REST 
OF THE ALPHABET 

390 POSITION 1,225? *6}"robot ,, JRS5F‘OS 
ITION 11,225? *6 5 "hunan "} FIS 5 REM robot 
IS LOWER CASE INVERSE 
400 W<ENT<RND<1)*10)#10+15E=95E1=105IF 
W=91 THEN E=LEN < BASE*)~W 5 E1=E 5 REM CHO 
OSE A WORD FROM THE BASE 
410 ANSWER* ; =BASE* < W , W+E) 5 FOR X=1 TO El 
5 IF ANSWER*(X,X)-" " THEN ANSWER* = ANSW 
ER*<1,X—1)5 GOTO 430 
420 NEXT X 

430 WL=LEN < ANSWER*)5FOR X=1 TO WL5POST 
TION X,15 5 ? *6 5"?"5 NEXT X5R=15C=25MI=1 
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SET POINTERS 


0 5 REM PRINT THE ? - 
-‘HO OPEN *2,4,0,"K5" 

450 GET *2,K5CI_OSE *25IF K>127 THEN K- 
K-1285 POKE 694,0 5 REM CLEAR THE BUFFER 
AND CLOSE IT 
460 IF K=42 THEN 500 

47 0 IF K---43 THEN 54 0 

48 0 IF K-27 THEN 57 0 
490 GOTO 440 

500 POSITION C,R:? *6;" "5 REM REMOVE T 
HE POINTER 

510 C=C+15 IF C= 15 THEN C=25R=R+2JIF R= 
5 THEN R=1JREM SET NEW POSITION 
52 0 POSITION C,R 5 ? #65" A “5 REM MOVE THE 
POINTER -- ARROW IS INVERSE 
530 GOTO 440 5 REM GET ANOTHER MOVE 
540 POSITION C,R:? #6?" "5REM REMOVE T 
HE POINTER 

550 C = C~15IF C = 1 THEN C ; =14 I R=R-2 5 IF R = 
-1 THEN R=3JREM SET NEW POSITION 
560 GOTO 520 

570 LOCATE C,R-l,L5POSITION C,R~15? *6 
J CHR$(L ) { 5IF L=32 THEN 44 0 J REM ONLY TA 
KE LETTERS THAT ARE THERE 
580 POSITION C,R-15? *65"-"5FOR V=14 T 
O 7 STEP -1!FOR T = :l.00 TO 50 STEP -55SO 
UND 0,7,V,10 5 next ItNEXT V 
590 POSITION C,R--i:? *6 5" ."tFOR V=7 TO 
0 STEP -15FOR T=50 TO 0 STEP -55SOUND 
0,T,V,10 5 NEXT T5 NEXT V 
60 0 SOUND 0,0, 0,05 POSITION C,R-1J? *6 5 
“ "5 REM REMOVE THE LETTER 
610 L=L-1285M=Q 5FOR X = 1 TO WL 5 REM CHEC 
K THE LETTERS 

620 IF LOASC ( ANSWERS (X , X ) ) THEN 650 5R 
EM NO MATCH 

630 POSITION X,15 5 ? *65CHR$(L)5 WORD*(X 
,X)=CHR$(L)5 M-l 

640 FOR S-250 TO 5 STEP -55 SOUND 0,S,1 
0,85 NEXT S5SOUND 0,0, 0,0 
650 NEXT X 5IF M AND ANSWER$=WQRD$(1,WL 
) THEN 840 

660 IF NOT M THEN GOSUB 700+(MI*10 ) 5M 
I=MI-1 

670 IF MI THEN 440 

680 POSITION 1,125? *65ANSWER*5FOR S=1 



0 0 TO 20 0 ‘.BOUND 0,S,6,82NEXT S2 SOUND 0 
>0,0,0 

690 RS=RS+:L ’.GOTO 850 

700 REM REMOVE THE BODY 

710 FOR F'X=7 TO 10‘.POSITION 12,F'X2? *6 

}" •• jjnext px:return 

720 POSITION 13.8:? *6 }"$$ V5 RETURN 

730 POSITION 14,9*.? *6 J 2 RETURN 

740 FOR PX=11 TO 162POSITION 13.PX5? * 

6 *," " {‘.NEXT PX*. RETURN 

750 FOR PX = 12 TO 14JP0SITI0N 16,PX*.? * 

6 J" "{{NEXT PXJRETURN 

760 FOR PX = 12 TO 142 POSITION 11,PXJ? # 

6 J " "JJNEXT F'XJ RETURN 

770 FOR F'X = 17 TO 18JPOSITION 13,PXJ? * 

6 ‘," "JJNEXT PX*.RETURN 

780 FOR PX = 17 TO 182POSITION 15,PXJ? * 
6 J" "JJNEXT PXJRETURN 

790 POSITION 11,152? *6J" $$$ "JRETU 

RN 

800 POSITION 13,192? *6J" "J J RETURN 

830 REM OrC! ARE INVERSE 
840 POSITION 1,122? *6 J"COrrECt!"JFOR 
x=:l TO WL J SOUND 0 , ASC (WORD$ (X, X)) , 10,1 
0 J NEXT X S HS-HS+1 

850 SOUND 0,0,0,0‘.POKE 764,255 J F'OSITIO 
N C,R J ? #6}" "J J WORD$ = " "J REM 

CLEAR OUT THE POINTER AND THE STRING 
86 0 IF PEEK(764)0255 THEN LINE=30 0 JGO 
TO 890 

870 IF PEEK(53279)=5 THEN LINE=260JGOT 
0 890 

880 GOTO 860 

890 POKE 764,255 J POSITION 1,12 2? *6JW0 
RD$‘.POSITION 1,15 2? #6 J WORD* J 2 GOTO LIN 
E 

1000 DATA MAJESTY,DINE,ALAS,OGRE,FAVOR 
, COTTAGE, EMPIRE, RATHER, SURROUNDED, SLIP¬ 
PED 

1010 DATA PROPER,SCRATCH,REMARKABLE,RA 
GE,BLINDED,NAP,STREAM,SAWMILL,GOBLIN , F 
IFTEENTH 

1020 DATA ABSOLUTELY,PLAYMATE,LAZY,PIC 
KETS,JAR,FIGHT,HOLLOW,SLEPT,STOUTNESS, 
GOODBYE 

1030 DATA WORMS,KIMONO,BATH,GUIDE,ROOT 
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S» HIPS,BUTLER,BADE,GUARD,BARLEY 
10^0 DATA TIGER,CLAP> GRANTED , PEARLS,DA 
RED,FETCH,CHILD,BRAIDS,TERRIFIED,SEIZE 
D 

1050 DATA WEPT,MUTTERING,HELPLESSLY,SE 
L. EC TED , RIPE , BID , DULL , RATS , UTTERLY , SPOO 
L. 

1060 DATA COWARDS , LOOP , PILLOW,SCUFFLIN 
G,NORTH,PADDY,FUMED,SLID,DROOP,PAINFUL 
1 070 DATA WITS,COACH >SHIVERING,HALLO , S 
PLIT,CLOUD,FORTUNATE,PREFER,TOWEL,WITC 
H 

10SO DATA COMFORT, HEALTHY , SWEETLY,SKEI 
N,SNIP,SOBBING,ANT,LINGERED,COUNT,THIN 
1090 DATA CANDY,HUTCH,BUBBLES , HASH,STU 
MP,QUILT,MUGS,CARELESSLY,SLENDER,DUTY 


a free area of RAM. Each byte is read from the data line and 
POKEd into a memory location. This subroutine is completely 
relocatable. In this program it is stored on page 6. It can be stored 
in any other convenient area of memory. 

Line 100 executes the assembly language subroutine. This 
subroutine moves the character set from ROM into RAM. 

Line 110 POKEs the high-order byte of the beginning address 
of the character set into location 756. Now the computer will use 
the character set in RAM instead of the ROM set. 

Line 120 calculates the decimal address of the character set. 
Since the character set must begin on an even boundary, the high- 
order byte is multiplied by 256. 

Line 130 reads the bytes from the following DATA lines and 
POKEs them into RAM. Each DATA line is one new character. 
Each character is made up of eight bytes. The characters from the 
pound sign to the period, inclusive, will be changed. See Fig. 3- 
4 for the new character set. 

Line 260 uses the random number command to pick a number 
from one to ten. This number is the set of words that will be used 
in the program. BASES is cleared and WORDS is cltared. If the 
strings are not cleared before they are used, data from previous 
programs could be stored in them. 

Line 270 points to the DATA line that contains the set of words 
for this session. 

Line 280-290 read the words from the DATA line and place 
them into ANSWERS. The words are then transferred into BASES. 
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Each word is given 10 bytes or places in the string. 

Line 300-340 print the robot on the screen. Be sure to place 
the spaces where indicated, or the robot will not look right on the 
screen. 

Lines 370 and 390 print the alphabet on the screen. The 
alphabet will appear in two rows on the screen with a blank line 
between the first and second row. The number of words guessed 
and the robot’s score also appear on the screen. 

Line 380 positions the up arrow under the A. 

Line 400 chooses a number from 1 to 10. This number is the 
word chosen from the word set that will be used in this turn. 

Line 410 stores the word in ANSWERS. The line looks for the 
space or end of word so the string will contain only the letters for 
that word. 

Line 430 finds the length of ANSWERS and prints a question 
mark for every letter in the word. 

Line 440 opens the keyboard for a read. 

Line 450 gets the ATASCII value of the key pressed and closes 
the keyboard. If the value of K is greater than 127, the ATARI 
key is pressed. By subtracting 128 from the value of K, we know 
which key was pressed. POKEing location 694 with 0 restores the 
keyboard to normal key values. 

Lines 460-490 compare the value of K to the two arrow keys 
and the Escape key. If a match is made, the program goes on to 
the correct line number. If a match is not made, the program will 
loop back and wait for another keystroke. 

Line 500 erases the arrow from its position. 

Line 510 increases the value of C by 1. C is the column the 
arrow is in. When this value reaches 15, the arrow would not be 
under a letter, so C is reset to 2 and variable R is increased by 2. 
Variable R contains the row the arrow is in. If this value reaches 
5, the variable is set back to 1. There are only two rows that the 
arrow can be in, the first row or the second. 

Line 520 prints the arrow in the new position. This gives a wrap 
around effect on the screen. 

Line 530 sends the computer back to line 440 to wait for an¬ 
other keystroke. 

Lines 540-560 move the arrow in the opposite direction. 

Line 570 begins the routine for the Escape key. By pressing 
the Escape key, you are telling the computer that this is the letter 
you want to try. The Locate command checks the screen just above 
the arrow to see if, in fact, a letter is there. If the space is blank, 
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the program goes back to line 440 and waits for another key to be 
pressed. 

Lines 580-590 remove the letter from the screen. The new 
characters for the dash and period and the sound routines make 
the letter look like it is disintegrating. 

Line 600 turns the sound generator off and erases the letter 
on the screen. 

Line 610 begins the FOR-NEXT loop that checks the “word” 
for the letter just entered. 

Line 620 individually checks each letter in the word. If the 
entered letter does not match this letter, the computer is directed 
to line 650 and the loop continues. 

Line 630 replaces the question mark on the screen with the 
entered letter and places that letter into WORD$. Variable M is 
used as a flag and is set to 1 when a match has been made. 

Line 640 is the sound routine that makes the letter sound like 
it popped onto the screen. 

Line 650 continues the FOR-NEXT loop for the entire word. 
If the flag (M) was set to 1 and the word in ANSWERS matches 
the word in WORDS, the score is increased by 1, a short tune is 
played and the computer continues with line 850. 

Line 660 directs the computer to a line between 700 and 800. 
This line will erase part of the robot. 

Line 670 checks the value of M. If it is not 0, the program con¬ 
tinues with line 440. 

Line 680 prints the word in ANSWERS on the screen and 
makes a sound. This line is executed after the entire robot is erased. 

Line 690 increases the computer’s score and sends the com¬ 
puter to line 850. 

Lines 700-800 remove parts of the robot. Each incorrect letter 
that is entered removes one part of the robot. 

Line 850 removes the letters from WORDS string. This 
prepares it for the next turn. 

Line 860 checks location 764. If any key has been pressed, 
variable LINE is set to 300 and the computer goes to line 890. 

Line 870 checks the location 53279. If it is 5, the Select key 
has been pressed. Variable LINE is set to 260 and the computer 
continues with line 890. 

Line 880 sends the computer back to line 860. No key has been 
pressed. 

Line 890 resets location 764 by POKEing it with 255. If the 
answer was printed on the screen, it is removed, and the computer 
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is directed to the line number stored in LINE. If variable LINE 
is equal to 300, the next word will be chosen from the same set 
of words. If variable LINE is equal to 260, a new set of words will 
be chosen. Otherwise, another word from the same set will be 
chosen. 

Lines 1000-1090 contain the words that can be used in this pro¬ 
gram. To change the words, simply type 10 new words in a line. 
The line number must be one of the lines that appear in this part 
of the listing. Be sure the line contains 10 words and there is a 
comma separating each word. 

FRACTURED STORIES 

Objective of the game: To create a new story. 

Description: This game is a favorite with most children. 
Whether they play it with the computer or use one of the many 
popular books on the market, children love trying to come up with 
stories that are sillier than the last. 

In this program there are three different stories from which 
to choose. The first is a Mother Goose rhyme, the second a space 
story. The third story is about a place the child can visit. To select 
a story, enter a story number and press the Return key. The screen 
clears and a description appears on the screen. This may be a part 
of speech, or a type of word the story needs. A slash after a word 
gives more information about the word that is needed. Here are 
a few selections: 

verb/pt - verb part tense 

verb/s - end with an “s” 

verb/ing - end with “ing” 

Each story requires between seven and 12 words. Once all the 
words have been entered, the screen clears and the story is printed 
on the screen. To return to the menu, press the Start key. Figure 
3-4 is the flowchart for this program, and Listing 3- 3 is the code. 

Line 50 sets aside the string space required for this program. 
WORD$ holds the words entered by the user, D$ is used for the 
description of the word that should be entered, and A$ temporarily 
stores the word entered by the user. 

Line 60 clears the string. If a string is not cleared before it is 
used, it may contain garbage. The first element of the string is set 
to a space, then the last element of the string is set to a space, then 
the last element of the string is set to a space. By setting the sec- 
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Fig. 3-4. Flowchart for Fractured Stories. 
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Listing 3-3. Fractured Stories. 


10 REM FRACTURED STORIES 

20 REM CHAPTER 3 - WORD GAMES 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

40 REM COPYRIGHT 1984 

50 DIM WORD*(240) ,D*(20) ,A*(15) 

60 WORD* < 1) =" "5 WORD*(240) = “ "5WORD*(2 
)=WORD* 

70 ? CHR*(125){POSITION 3,55? "CHOOSE 
A STORY 

80 ? 5? CHR* (127) 5"1. MOTHER GOOSE"}? 

:? CHR*(127)} "2. SPACE ATTACK"♦? 5? 
CHR*(127) * "3 ♦ FAVORITE PLACE" 

90 POSITION 19,145? " ";CHR*(30)JCHR 

* (30) }CHR*(30) *, 

100 TRAP 90 5 INPUT S5IF S<1 OR S>3 THEN 
90 

110 ON S GOTO 120,260,430 
120 RESTORE 150 5? CHR*(125)5FOR X=1 TO 
75 READ D$ 5 ? 5? D*55 INPUT A* 5 IF A*="“ 
THEN 120 


130 W0RD*(X*15-14,X#15-15+LEN(A$))=A*5 
REM STORE THE ANSWER 

140 NEXT X 5 REM GET THE RIGHT NUMBER OF 
WORDS 

150 DATA OCCUPATION,NOUN,NOUN,NOUN,VER 
B,NOUN,NOUN 

160 ? CHR* (125)5POSITION 13,25? "MOTHE 
R GOOSE" 

170 X=15GOSIJB 1 0 0 0 5 ? 5? CHR* (127 ) 5 "OLD 
"5A*5" HUBBARD" 


180 X=2 5 GOSUEi 1 0 00 5? 
O THE "}A* 

190 X=35GQSUB 1 0 00 5? 

HER POOR "}A* 

20 0 X=4 5GOSUEi 1 0 00 5? 
7)J"A "5 A* 

210 X-5 5GOSUEi 10 00 5 ? 
N SHE "5 A*}" THERE," 
220 X=65GOSUB 10005? 
A*5" WAS BARE" 

230 X = 7 5 GOSUB 1 0 00 5 ? 

THE POOR "}A* J"‘HAD 
24 0 IF PEEK (53279)0 
250 RUN 


CHR*(127)5"WENT T 

CHR*(127)?"TO GET 

CHR*(127)5CHR*(12 

5? CHR*<127)5"WHE 

CHR*(127)5"THE "5 

CHR*(127)5"AND SO 
NONE." 

6 THEN 240 
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260 RESTORE: 290:? CHR$< 125) JFOR X=1 TO 

11:read dt:? :? dt;:input a*:if a$= m " 

THEN 260 

27 0 W 0 R D T (X * 15 -14 , X * 15 ~ 15 L. E N < A T ) > ~ A T 5 
REM STORE THE ANSWER 

280 NEXT X 5 REM GET THE RIGHT NUMBER OF 
WORDS 

29 0 DATA VERB/PT,NOUN,VERB/PT t COLOR,VE 
RB/ING, NOUN,NUMBER, ADVERB,NOUN,VERB/PT 
, N O U N 

30 0 ? CURT<125)5 POSITION 13,2:? "SPACE 
ATTACK" 


310 

x = :l : GOSUB 

i o o o: ? 

5? CHRT(127) ? "ONE 

NIGHT I " {AT 



32 0 

X”2 : GOSUB 

i o o o: ? 

"INTO THE DARK "5 

at ; " 

. I DID" 



33 0 

X=3JGOSUB 

1 0 0 0 5? 

"NOT BELIEVE WHAT 

I " 

;at;"." 



340 

X : =4 J GOSUB 

1 0 0 0 5 ? 

5? AT}" MARTIANS 

WERE 

" : :x=5 :gosub iooo: ? at 

350 

II 

X=6JGOSUB 

i o o o: ? 

"FROM THE "? AT {"» 

360 

X : =7 : GOSUB 

i o o o: ? 

"THERE MUST HAVE 

BEEN 

";at; " of 

THEM. " 


370 

x=o: GOSUB 

1 0 0 0 5 ? 

5? "I WAS "5 AT J" . 

I 

WANTED" 



380 

♦ II II 

x=9:gosub 

1 0 0 0 5 ? 

"TO LEAVE MY "{AT 

t ♦ 

390 

II II 

X = 10 : GOSUB 

1 0 0 0 5 ? 

5? "THEN I "} AT { 

« 

400 

X==:L 1J GOSUB 

1 0 0 0 5? 

5? CURT(127){"IT 


WAS ONLY A "{AT{" ! " 

410 IF PEEK (53279 ) 06 THEN 410 
420 RUN 

430 RESTORE 460J? CHRT(125)5 FOR X=1 TO 

12 :read dt:? :? dt;5 input a*:if at="" 

THEN 430 

44 0 W0RDT<X#15-14,X*15--15+LEN(AT) )-A» J 
REM STORE THE ANSWER 

450 NEXT X’.REM GET THE RIGHT NUMBER OF 
WORDS 

460 DATA PLACE,SEASON,NOUN,NOUN,VERB,N 
OUN,ADJECTIVE,NOUN,VERB,NOUN,VERB/S,VE 
RB 

470 X=i:GOSUB 1000:? CHRTC125){"I like 
TO GO TO THE ” {AT{" IN " } S X = 2: GOSUB 1 
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ooo:? a$ j"." 

0 X=3 5 GOSUE: 10 0 0 t ? "THE "5A$?" MAKES 
WAVES ON" 

490 ? "THE " ; 5X=45GOSUB 1 000 5? A$}"." 
50 0 X=5 5 GOSUE: 10 0 0 J? 5? "THE FISH LIKE 
TO "5 A*5"." 

510 X=6 5GOSUF3 10005? "THE " } A$ 5 5 X=7 5 GO 

sub iooo:? " is "?a$;"." 

52 0 X=8 * GOSUE: 10 00 5? 5? "SOMETIMES I S 
IT ON THE " } A$ 5" . " 

530 X=95GOSUB 10005? "OTHERTIMES I "JA 
$5" IN A ROWBOAT." 

540 X — :L0 5GOSUEi 1 0 0 0 5 ? "THE "5A$?" " 5 5X 
= 115 GOSUE: 1 000 5? A$ 5 " MY BODY," 

550 X= 12 5GOSUE: 1 0 0 0 5 ? "BUT I DON'T "JA 
$ 5 " 

560 ? 5? CHR$(127)5"IT'S FUN!!" 

570 IF PEEK (53279)06 THEN 57 0 
580 RUN 

1000 A$=WORD$(X*15-14 »X*15) 

1010 FOR V = 1 TO 155IF A$(V,V)<>" " THE 
N NEXT V 5REM FIND THE END OF THE WORD 
1020 V=V"-15A$=WORD$(X*15-14 > X*15--15+V) 
5 RETURN 


ond element of the string to the string, the entire string becomes 
spaces. 

Lines 70-90 print the menu on the screen. The screen is cleared, 
the menu is printed, and the position for the question mark is erased. 
Be sure to include all the semicolons on line 90: these semicolons 
keep the cursor on the same line. The question mark will be printed 
on this line. 

Line 100 places the question mark on the screen and waits for 
a number. The TRAP command keeps the program from crashing 
if a letter is entered instead of a number. The computer repeats 
line 90. When a number is entered, it is stored in variable S. This 
variable is tested to see if it contains a number between one and 
three. If it does not, the computer remains on this line until a cor¬ 
rect number is entered. 

Line 110 sends the computer to the correct program line for 
the chosen story. 

Line 120 begins the Mother Goose rhyme. The RESTORE 
command tells the computer to use the DATA on line 150. The 
screen is cleared and the computer begins the FOR-NEXT loop. 
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This story asks for seven different words. The description of the 
needed word is read from line 150 and stored in variable D$. This 
description is printed on the screen. There are two PRINT com¬ 
mands (in the ? shorthand), separated by a colon, before the sec¬ 
ond D$. This skips a row on the screen between the words, making 
it easier to read. The entered word is stored in A$. If the Return 
key is pressed and no word is entered the computer is directed to 
the beginning of this line, and an entire set of new words can be 
entered. 

Line 130 places the word stored in A$ into the correct position 
in WORD$. There are 15 positions or spaces available for every 
word entered. One is subtracted from the value of X. This new value 
is multiplied by 15. Then 1 is added to the product. This is the first 
element for the word entered. We need to subtract 1 from the value 
of X before it is multiplied by 15, and add it back after the 
multiplication because the word ends with a value that is a multi¬ 
ple of 15, but begins one space after the last character of the 
previous word. 

Line 140 continues the loop until all seven words have been 
entered. 

Line 150 contains the descriptions of the words to be entered. 

Lines 160-230 print the story on the screen. Variable X indicates 
which word in the string is used in the sentence. The computer 
uses the subroutine at line 1000 to get the correct word. Be sure 
to use a semicolon before and after A$. Otherwise, the rest of that 
line will be printed in the next row on the screen. 

Line 240 waits until the Select key is pressed. 

Line 250 runs the program again. 

Line 260 begins the second story. The RESTORE command 
tells the computer that the information for the descriptions of the 
words are found on line 290. The screen clears and the program 
asks for the words in the same manner as it did for the first story. 

Line 270 places the word entered into the correct position of 
WORD$. 

Line 280 continues the loop until all 11 words are entered. 

Line 290 contains the data for the descriptions of the words 
to be entered. 

Lines 300-400 print the story on the screen. Variable X indicates 
which word is used in the line. Be sure to include the spaces and 
semicolons. 

Line 410 loops until the Start key is pressed. 

Line 420 runs the program again. 
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Line 430 begins the third story. The data for this story is on 
line 460. The same routine is used to read the data and enter the 
words. 

Line 440 places the word entered into WORD$. 

Line 450 continues the loop until all 12 words are entered. 

Line 460 contains the word descriptions read by line 430. 

Lines 470-560 print the new story on the screen. 

Line 570 loops until the Start key is pressed. 

Line 580 runs the program again. 

Lines 1000-1020 use the value of variable X to find the correct 
word in WORDS. One is subtracted from X because the new word 
will begin in the next space after the area set aside for the previous 
word. The word will end at the value of X times 15. If the entire 
15 characters placed in A$ were used, unnecessary spaces would 
be printed on the screen. The FOR-NEXT loop looks for the first 
space. This position minus one is the end of the word. The word 
without the extra spaces is stored in A$. The routine returns to 
the line that called it. 

DECODER 

Objective of the game: Test your ability to decipher the 
code created by the computer. 

Directions: The computer takes a well-known expression and 
codes it. Every letter has another letter substituted for it. At the 
more difficult level, every letter will have a graphics character 
substituted. Talk about hieroglyphics! The program can be played 
by two players, each taking turns trying to decipher his message. 

To play the game, enter whether one or two persons will be 
playing. The computer chooses a quotation and ciphers it. The en¬ 
coded message is printed on the screen. On each player’s turn, an 
up arrow is printed under the first letter or character of the en¬ 
crypted quotation. Press the right arrow or left arrow key to move 
the up arrow under a different letter or character. When the up 
arrow is pointing to the letter or character you want to change, press 
the space bar. A question mark appears above that letter. Press 
the letter key you want substituted. If you press the space bar, then 
change your mind, press the Return key and the up arrow will ap¬ 
pear under the letter. If you. want to erase all the letters and start 
again, press the Escape key. A letter can be changed more than 
once, but the same letter should not be substituted for two different 
letters or characters. Figure 3-5 is the flowchart for this program, 
and Listing 3-4 shows the code. 
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Fig. 3-5. Flowchart for Decoder. (Continued through page 165.) 



















Line 50 sets aside string space for the program. MES1$ and 
MES2$ store the messages that will be encrypted. ANS1$ and 
ANS2$ store your answer to the message. SCRM1$ and SCRM2$ 
hold the scrambled message, ALPH$ contains the alphabet, and 
TEMP$ and TEMP2$ are temporary strings used to move the 
message from one string to another. 

Line 60 sets the computer for graphics 0, removes the cursor, 
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Listing 3-4. Decoder. 


10 REM DE CODER - TRY TO DECIPHER THE 

ENCRYTED MESSAGE 

20 REM CHAPTER 3 - WORD GAMES 

30 REM BY L.. M. SCHREISER FOR TAB BOOKS 


■0 0 REM COPYRIGHT 1983 

50 DIM MES1$ <10 0)> MESZ’I (1 0 0 ),ANSI$(10 0 
),ANS2$<100),SCRM1$(10 0),SCRM2*(100 ) , A 
LPH$(26 ) f TEMP$(100),TEMP2$(100) 

6 0 GRAPHICS 0 5 POKE 752,15? CHR$(125)5R 
EM CLEAR THE SCREEN - TEXT MODE 

7 0 COLOR (42) 5PLOT 5,5tDRAWT0 35,5 5 PI..0 
T 6,185 DRAWTO 35,185 REM DESIGN ON THE 
SCREEN FOR MENU 

8 0 TRAP 80 5 POSITION 7,7 5? "How Many pi 

ayer s (1-2) "}CHR$(126)}CHR$(126)}5 IN 

PUT P 5 IF PCI OR P>2 THEN 8 0 

90 TRAP 100{POSITION 7,95? "Which leve 
1"5POSITION 10,115? "1-Letter encrypti 
on" 

100 POSITION 10,135? "Z-Character encr 

yption"{POSITION 15,155? " "{CHR$(126 

)5 CHR$(126)}5 INPUT L 

110 IF L<1 OR L>2 THEN 100 

120 TRAP 400005Q=INT(RND<1)*20)5QUOTE= 

1000+Q5P=P-15L=L~1 

130 RESTORE QUOTE5READ MES1* 

140 IF NOT P THEN 180 

150 01=INT (RND (1) *20 ) 5 IF Q1=Q THEN 150 
5REM DON'T LET BOTH PLAYERS HAVE SAME 
QUOTE 

160 GUOTE=1000+Q1{RESTORE QUOTE 
170 READ MES2* 

180 ? CHR$ (125)5 GOSUB 400+L5REM SHLJFFL 
E THE LETTERS 

190 POSITION 25,05? "PLAYER #1"5TEMP*= 

MES1 'i 5 REM PLAYER *1 IS INVERSE 

2 0 0 C=15 R=15C1=C5 R1 = R 5 D = 1 

210 GOSUB 90 0 5 R3”R 5 REM FIRST MESSAGE 

230 8CRM1$=TEMP$5REM STORE THEN MESSAG 

E AND THE ENCRYPTION 

24 0 TEMP*=MES1*5GOSUB 8705REM CHANGE L 
ETTERS TO DASHES 

250 C = 15 R=7 5 D = 0 5 GOSUB 900 5 ANSI$=TEMP* 
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260 IF NOT P THEN 290 

265 REM PLAYER *2 IS INVERSE 

270 GOSUE: 400 +L J TEMP*=MES2* 5C=1 5R = 13 5C 

2=C5R2=R5POSITION 25,125? "PLAYER *2"5 

D = 15GOSUB 90 0 »R4=R 

280 SCRM2$:=TEMPf 5 TEMP$ = MES2* 5 GOSUE: 870 
501 :R=195D==0 5G0SUB 90 0 5 ANS2*=TEMP$ 

290 OC15R-R1+15 RE-R3+15 RB=R 5 TEMF'$=SCR 
Ml«*5TEMP2*"ANS:L*5GOSUB 830 5GOSUB 740 
300 ANSl$ ; =TEMF'2'i 5IF ANS1*=MES1* THEN 9 
80 

310 TEMP$=ANSI$ 5 D-l5 C-15R=75GOSUE: 950 
320 IF NOT P THEN 290 

330 C=C25R=R2+15RE=R4+15RB=R5TEMP*=SCR 
M2$ 5 TEMF'2$-ANS2$ 5 GOSUE'. 830 5 GOSUE: 740 
340 ANS2$ ; =TEMF'2$ 5IF ANS2$=MES2* THEN 9 
80 

350 TEMP$ : =ANS2$ 5 D=15 C~15 F<=19 5 GOSUE: 950 
360 GOTO 290 

400 FOR X=1 TO 26 5 ALPH$(X,X)=CHR$(X+64 
)5 NEXT X5 GOTO 410 

401 FOR X=1 TO 265ALPH$<X,X>=CHR*<X) 5N 
EXT X 

410 FOR T = 1 TO 3 5 FOR X=26 TO 1 STEP -1 
5 Q=INT(RND(1)*X) + 1 

42 0 TEMPf (1,1) =ALF'H$ (Q , Q ) 5 AL.PH$ (Q,Q)~A 
LF‘H$ (X , X ) 5 ALF'H$ (X»X ) =TEMP$ (1,1) 5 REM MO 
VE LETTER TO LAST POSITION AVAILABLE 
430 NEXT X5 NEXT T 

44 0 FOR X=1 TO 265IF ALPH$(X,X>=CHR*(X 
+64) THEN GOTO 400+L 
450 NEXT X 5 RETURN 

600 POSITION C,R 5 ? " A "5 5REM PRINT THE 
UP-ARROW 

610 OPEN *2,4,0,"K 5"5REM OPEN KEYBOARD 
FOR A READ 

620 GET $2,K 5 CLOSE *25POSITION C,R5? " 
"55 IF K = 27 THEN 8105 REM CHANGE ALL TH 
E CHARACTERS BACK 

630 IF K>127 THEN K=K-1285POKE 694,05R 
EM TOGGLE THE INVERSE FLAG 

64 0 IF K = 32 THEN GOSUB 76 0 

65 0 IF K-43 THEN 70 0 
660 IF K-42 THEN 730 
670 GOTO 600 

700 OC-15IF C = 0 THEN C-38 5 R=R-2 5 IF R< 
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R6 THEN R=RE 

710 LOCATE C»R-l,LI 5 POSITION C,R-11? C 
HRS(L1)5IF NOT I. THEN IF Ll<65 OR Ll> 
90 THEN 700 

715 IF L THEN IF LI>26 THEN 700 
720 GOTO 600 

730 CC + 1JIF C = 39 THEN C = 12R-R+25IF R> 
RE THEN R=RB 

7T0 LOCATE C,R-1 ,L1{POSITION C,R-15? C 
HF!;S (LI) 5IF NOT L THEN IF Ll<e>5 OR Ll> 
90 THEN 730 

7T5 IF L THEN IF Ll>26 THEN 730 
750 GOTO 600 

760 POSITION 1 , R6-2 5 ? "?" 5 5GOSUB 8T0 *.0 
PEN +2 »T,0,"K."5 REM ? IS INVERSE 
770 GET *2,KJCL0SE *2‘.IF K=155 THEN RE 
TURN 

775 IF K>127 THEN K=K~ 128 1 POKE 69T , 0 *.R 
EM RESET INVERSE FLAG 

777 IF K>95 THEN K=K~325POKE 702,6T 5RE 
M RESET TO UPPER CASE 
780 IF K<65 OR K>90 THEN 760 
790 POSITION 3,RB~2.? CHRS(K)}5FOR X=1 
TO LEN< TEMP*) JIF ASC (TEMPS < X , X )) =1... 1 T 
HEN TEMP2S(X,X)=CHR$(K> 

800 NEXT X5POSITION l.RB-25? " "JJPO 
P ’.RETURN 

810 TEMPS=TEMP2S 5GOSUB 870 5 TEMP2$ = TEMP 
S’, RETURN 

830 FOR X='l TO 1 0 J SOUND 0,20,10,1 0 5 NEX 
T X5 SOUND 0 .O.O.OJRETURN 5 REM CURSOR R 
EADY SOUND 

8TO FOR X=1 TO 10 5SOIJND 0,80,10,105NEX 
T X5 SOUND 0,0, 0,05 RETURN 5 REM INPUT LE 
TTER SOUND 

87 0 FOR X=1 TO L.EN (TEMPS) 

88 0 IF ASC < TEMPS(X,X))<27 OR (ASC(TEMP 
S(X,X))>6T AND ASC(TEMPS(X,X))<91) THE 
N TEMPS(X,X) 

890 NEXT X.RETURN 

90 0 FOR X =1 TO LEN(TEMPS)5 IF ASC(TEMPS 
(X,X))=92 THEN TEMPS(X,X)=CHRS(TT)5 REM 
PRINT COMMA FOR SLASH 
910 IF ASC(TEMPS(X,X))<65 THEN 930 5 REM 
KEEP NON-LETTERS 

92 0 IF D THEN TEMPS (X , X ) ; =AL.F'HS ( ASC ( TEM 
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F'$< X > X) )-64) i REM CRYPT FOR LETTERS 
930 NEXT X 

950 FOR X=I TO LEN (TEMF'$ ) I POSITION C,R 
:? TEMP$(X,X); 

960 C=C+15IF 0=30 AND TEMP$ (X ,X) =" " 
THEN C=i:R=R+2JREM NEXT ROW 
970 NEXT X ♦ RETURN 

980 FOR X = 1 TO 10 5POKE 710,150-PEEK(71 
0>:FQR T = 1 TO 10 0 ♦ NEXT T ♦NEXT X 
990 GOTO 990}REM LOOP HERE UNTIL RESET 
IS PRESSED 

1000 DATA "WHEN IDEAS FAIL\ WORDS COME 
IN VERY HANDY." GOETHE 

1001 DATA "I ONLY LIKE TWO KINDS OF ME 
NJ DOMESTIC AND FOREIGN." MAE WEST 

1002 DATA "THE GREATEST PRAYER IS PATI 
ENCE." THE BUDDHA 

1003 DATA "WHEN THE CAT AND MOUSE ACRE 
E\ THE GROCER IS RUINED." PERSIAN PROD 
ERB 

1004 DATA "IF YOU DRINKN DON'T DRIVE. 
DON'T EVEN PUTT." DEAN MARTIN 

1005 DATA "IT IS BETTER TO WEAR OUT TH 
AN TO RUST OUT." BISHOP CUMBERLAND 

1006 DATA "A SMILE IS THE SHORTEST DIS 
TANCE BETWEEN TWO PEOPLE." VICTOR BORG 
E 

1007 DATA "THE REWARD OF A THING WELL 
DONE\ IS TO HAVE DONE IT." RALPH WALDO 

1008 DATA "BLESSED ARE THE PURE OF HEA 
RTJ FOR THEY SHALL SEE GOD." MATTHEW 5 
* 8 

1009 DATA "A SMALL LEAK WILL SINK A GR 
EAT SHIP." THOMAS FULLER 

1010 DATA "MUSIC IS TO THE MIND AS AIR 
IS TO THE BODY." PLATO 

1011 DATA "HE THAT PLANTS TREES LOVES 
OTHERS BESIDES HIMSELF." ENGLISH PROVE 
RB 

1012 DATA "JUSTICE IS TRUTH IN ACTION. 

" BENJAMIN DISRAELI 

1013 DATA "NEVER CLAIM AS A RIGHT WHAT 
YOU CAN ASK AS A FAVOR," JOHN CHURTON 
COLLINS 

1014 DATA "MIGHT DOES NOT MAKE RIGHT; 
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IT ONLY HAKES HISTORY." JIM FIEBIG 

1015 DATA "IF YOU WANT A THING WELL. DO 
NE\ DO IT YOURSELF." CHARLES HADDON SF' 
URGEON 

1016 DATA "NO GOOD DEED GOES UNPUNISHE 
D." CLARE BOOTHE LUCE 

1017 DATA "MEN WILL EITHER BE GOVERNED 
BY GOD OR RULED BY TYRANTS." WILLIAM 

PENN 

101(3 DATA "IF ALL THE WORLD WERE JUST\ 
THERE WOULD BE NO NEED OF VALOUR." F'L 
UTARCH 

1019 DATA "THE ONLY REAL PEOPLE ARE. TH 
E PEOPLE WHO NEVER EXISTED." OSCAR WIL 
DE. 


and clears the screen. Although the computer is normally set up 
in the text or graphics 0 mode, we must use the command in this 
program so we can use the PLOT and DRAWTO commands. If 
the screen is not cleared after the POKE command, the cursor will 
stay on the screen. 

Line 70 uses the PLOT and DRAWTO commands to draw two 
rows of asterisks on the screen. 

Line 80 asks you to enter the number of players. The two 
CHR$(126)s backspace over the two spaces that follow the paren¬ 
thesis. This erases an erroneous answer. The TRAP prevents the 
program from crashing if a letter or character is entered instead 
of a number. The computer remains on this line until a 1 or 2 is 
entered. 

Lines 90-110 ask for the level of play. The TRAP is used again 
to prevent the program from crashing. The two spaces and two 
CHR$(126)s erase an erroneous answer. Variable L is tested for 
the value 1 or 2. If it contains any other number, line 100 is 
repeated. 

Line 120 disables the TRAP. A number from 1 to 20 is cho¬ 
sen. This number will be the quotation the computer will encrypt. 
By adding 1000 to the value of Q, the computer knows the line 
number of the selected quotation. One is subtracted from the values 
of P and L. If there is only one player, or level one was chosen, 
the value of the variable is now 0. This value is used later in the 
program. 

Line 130 points to the line that contains the quotation. The 
quotation is read into MES1$. 
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Line 140 uses the NOT operator to determine whether there 
are one or two players. Two lines before, 1 was subtracted from 
the value of P. In this line, if P is 0 the computer is sent to line 
180. If P is 1, the computer continues with the next line. 

Line 150 selects a number from 1 to 20 for the second player. 
If the number chosen is the same number as that chosen for the 
first player, the line is repeated. 

Line 160 adds 1000 to the value of Q1 and uses the RESTORE 
command to point to the quotation. 

Line 170 reads the new quotation into MES2$. This is the 
quotation that will be encrypted for the second player. 

Line 180 clears the screen. The computer is sent to the cor¬ 
rect line of the subroutine that shuffles the letters. The value of 
L is added to 400 to arrive at the correct line. 

Line 190 prints the number of the player whose turn it is. The 
letters, character and number are in inverse video. The quotation 
is placed into TEMP$. 

Line 200—the variables C, R, Cl, Rl, and D are all set to 1. 
These values are used to print the encrypted code on the screen. 

Line 210 sends the computer to the subroutine at line 900. This 
subroutine substitutes a new letter or character for the letters in 
the quotation. The value of R is stored in R3. This is the last row 
used by the encryption. 

Line 230 stores the encrypted quotation in SCRM1$. 

Line 240 places the unencrypted quotation back in TEMP$. 
The subroutine at line 870 changes all the letters in the quotation 
into dashes. 

Line 250 resets the variable C to 1, the variable R to 7. This 
is the row and column at which the dashes will begin. The variable 
D is set to 0. The same subroutine at line 900 is used to print the 
dashes on the screen. The string of dashes is then transferred to 
ANS1$. 

Line 260 checks the value of P. If it is NOT, or is 0, the com¬ 
puter is directed to line 290. There is only one player. 

Line 270 sends the computer to the correct line to shuffle the 
letters or characters for the second player. The second message 
is stored in the temporary string TEMP$. Variable C is set to 1 
and R is set to 13. This encryption is printed on the 13th row, begin¬ 
ning with column 1. The column and row values for the second 
player are stored in variables C2 and R2. These values are used 
later in the program to determine where the up arrow should be 
placed. The player number is printed on the screen in inverse video. 
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Variable D is set to 1, indicating that letters or characters rather 
than dashes should be printed. The computer is sent to the 
subroutine at line 900. The second encrypted quotation is printed 
on the screen. The last row the message uses is stored in variable 
R4. 

Line 280 places the encrypted quotation in SCRM2$. The 
quotation stored in MES2$ is moved into TEMP$ so the computer 
can use the subroutine at line 870 to convert the letters into dashes. 
Column variable C is set to 1 and row variable R is set to 19. The 
dashes begin on the 19th row. Variable D is set to 0, indicating that 
dashes will be printed on the screen. The computer uses the 
subroutine at line 900 to print the dashes, then stores this string 
in ANS2$. 

Line 290 moves the column value of the first quotation from 
Cl to C. The row number is increased by 1 and stored in variable 
R. Variable RE contains the last row that letters are printed on, 
plus 1. The first row the up arrow will be printed on is stored in 
variable RB. When the computer reaches the last row the up ar¬ 
row can be printed on, it needs to know where the first row is, to 
complete the wrap-around. The encrypted quotation is placed into 
TEMP$ and the current answer is stored in TEMP2$. The com¬ 
puter uses the subroutine at line 830 to make a sound, then uses 
the subroutine at line 740 to move the up arrow and substitute a 
letter for another letter or character. 

Line 300 places the contents of TEMP2$ into ANS1$. This is 
the string with the dashes. The letters that have been changed are 
also placed in this string. If the contents of ANS1$ are the same 
as MES1$, the code has been broken and the computer is sent to 
line 980. 

Line 320 checks the value of P. If there is only one player, the 
computer proceeds to line 290. There is no need to use the remain¬ 
ing lines. These lines are used by the second player. 

Line 330 moves the values stored in variables C2 and R2 to 
indicate the column and row of the second player’s quotation. The 
value of the row is one more than the row the letters are on, so 
the arrow is under the letters. Variable RE is the last row on which 
the up arrow can be. The first row of the quotation is stored in 
variable RB. The encrypted quotation is moved to TEMP$, and 
the dashes and letters that have been changed are moved to 
TEMP2$. The subroutine at line 830 sounds the tone. The com¬ 
puter uses the subroutine at line 740 to move the up arrow or change 
a letter. 
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Line 340 places the new string of dashes and changed letters 
into ANS2$. This string is compared to MES2$. If the quotation 
has been deciphered, the computer moves to line 980 to end the 
game. 

Line 350 places ANS2$ into the temporary string TEMP$, sets 
the variables to print dashes beginning with the correct row and 
column, and uses the subroutine at line 950 to print the string on 
the screen. 

Line 360 sends the computer to line 290 to continue the pro¬ 
gram until one player solves the code. 

Lines 400-450 contain the subroutine that shuffles the letters 
or characters. 

Line 400 is used if level 1—letter encryption—is chosen. The 
variable X counts from 1 to 26: there are 26 letters in the alphabet. 
The ASCII code for the letters is not 1 to 26. To get the correct 
ASCII code for uppercase letters, 64 must be added to the value 
of X. The character of this value, which is an uppercase letter, is 
stored in ALPH$. 

Line 401 is used if level 2—character encryption—was chosen. 
The values 1-26 contain the ATARI characters. When either routine 
is finished, ALPH$ will contain the entire alphabet or character 
set in the correct order. 

Line 410 begins the shuffling routine. The letters or characters 
are shuffled three times. The second FOR-NEXT loop begins with 
the last element of ALPH$ and steps backwards. One element of 
the string is chosen. Each time this loop repeats, there is one less 
element to choose from. 

Line 420 moves the letter or character from ALPH$ and places 
it in the first element of TEMP$. It then moves the last possible 
element of ALPH$ and places it into the chosen element. The let¬ 
ter of character placed into TEMP$ is moved into the last possible 
element of ALPH$. 

Line 430 continues the loop. Variable X is decremented by one. 
The letter of character moved into the last possible element of 
ALPH$ cannot be moved because its position is greater than the 
value of X. This routine continues until the letters or characters 
have been shuffled three times. The computer returns to the main 
part of the program. This routine can take several seconds. The 
screen remains blank while the letters are shuffled and the quota¬ 
tion is encrypted. 

Lines 440-450 check each element of ALPH$ to make sure 
every letter or character has been moved. If one has not, the routine 
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is repeated. Otherwise, the computer returns to the main program. 

Lines 600-810 move the up arrow and change the letters or 
characters. The up arrow is printed at the position set by variables 
C and R. These variables contain the column and row values. These 
values change depending on which player is trying to break the 
code. 

Line 610 opens the keyboard so the key that is pressed can be 
read without having to press the Return key. 

Line 620 uses the GET command to place the value of the key 
pressed into variable K. The computer waits at this line until a key 
is pressed. Once a key is pressed, the keyboard is closed and the 
up arrow is erased from the screen. If the Escape key is pressed, 
the computer is directed to line 810. All the characters are changed 
back to the original encryption, and the letters on the dashes are 
removed. The dashes are placed back on the screen. 

Line 630 checks to see if the variable K is greater than 127. 
If it is, the ATARI key has been accidentally pressed. To get the 
correct value of the pressed key, 128 is subtracted from the value 
of K and the location 694 is POKEd with zero. This resets the 
keyboard to normal video. 

Line 640 checks to see if the space bar was pressed. If it has, 
the computer goes to line 760 to change a letter. 

Line 650 compares K to the value of the back arrow. The com¬ 
puter moves to line 700 if the up arrow should move backwards. 

Line 660 directs the computer to line 730 when the right ar¬ 
row key is pressed. To move the up arrow, simply press the arrow 
key. The program look for the value of the key without pressing 
the shift or Control key. 

Lines 700-720 move the up arrow to the left. The variable C 
is the column in which the up arrow is located. It is decreased by 
1. If it becomes zero, it is reset to 38—the last column in which 
letters can be printed. If the variable is reset to 38, the row value 
is decreased by 2. The empty rows for the up arrow are two rows 
apart. If the value of R is less than the value of RB, the up arrow 
would be printed above the letters for this quotation, so variable 
R is reset to RE—the last row the up arrow can be in. 

Line 710 uses the Locate command to get the value of the let¬ 
ter or character to which the up arrow is pointing. The letter or 
character is printed in that location because, occasionally, the com¬ 
puter erases a character when the LOCATE command is used. The 
value of L is checked for zero. If the player chose level 1, variable 
LI is checked to see if it is a letter. If it is not, the computer is 
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sent back to line 700 to move it to the left again. This way, the 
up arrow will not point to spaces or punctuation marks. 

Line 715 checks to see if the up arrow is pointing to anything 
other than a character. If it is, line 700 is repeated. 

Line 720 sends the computer back to line 600 so the player can 
move the up arrow or change a letter. 

Lines 730-750 move the up arrow to the right. Variable C is 
increased by 1. It is then checked to see if it is equal to 39. This 
is the right-most edge of the screen. If it is, the variable is reset 
to 1. This is the first column. Variable R is now increased by 2 so 
the up arrow can move down one row. The value of R is compared 
to RE to make sure the up arrow will not be printed below the 
dashes. RE is the last row the up arrow can be in. If R is greater 
than RE, the variable R is reset to RB—the first row the up arrow 
can be in. 

Line 740 uses the LOCATE command to get the value of the 
letter or character to which the up arrow is pointing. The letter 
or character is printed on the screen. The computer then checks 
to see if this is level 1. If it is, L equals 0, and the computer checks 
the value of LI—the letter to which it is pointing. If the up arrow 
is not pointing to a letter, the value of LI will be less than 65 or 
greater than 90. The computer repeats line 730 and moves the up 
arrow one more position to the right. 

Line 745 compares the value of LI to 26. The computer uses 
this line when L is 1, i.e., level 2 was chosen. If the value of LI 
is greater than 26, the up arrow is not pointing to a character and 
the computer repeats line 730, moving the up arrow one more col¬ 
umn to the right. 

Line 750 sends the computer to line 600 to wait for the player 
to move the up arrow again or change a letter. 

Lines 760-800 get the letter the player wants to use. A ques¬ 
tion mark is printed above the row the up arrow was pointing to 
and the computer makes a sound to prompt the player to press a 
key. The keyboard is opened. 

Line 770 gets the value of the pressed key and places it in 
variable K. The keyboard is closed. Variable K is checked to see 
if it contains 155. This is the code for the Return key. If it is, the 
computer returns the routine that called it. This is an escape in case 
the player changes his mind about entering a letter. 

Line 775 checks the value of K to see if the ATARI key has 
been pressed. If it has, the keyboard is reset for normal video and 
variable K is adjusted. 
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Line 777 checks to see if the CAPS/LOWER key had been 
pressed. If it had, the keyboard is reset for uppercase and the value 
of K is adjusted. 

Line 780 now checks to see if a letter has been pressed. Only 
letters can be substituted for the letters or characters in the en¬ 
crypted code. If a letter has not been pressed, the computer repeats 
line 760 and waits for a letter key. 

Line 790 prints the letter that has been pressed. Every character 
in TEMP$ is checked for the code of the letter or character being 
changed. TEMP$ contains the encrypted code for the quotation. 
When the matching character is found, the letter that is being 
substituted for that letter or character is placed in TEMP2$. This 
is the string that contains the dashes. This way, only the string with 
the answer is changed. The encrypted message stays intact. 

Line 800 continues the loop until all the characters or letters 
have been changed. The letter that has been substituted is erased 
from the screen. The POP command is used to remove one return 
address off the stack and the RETURN command is used to send 
the computer back to the main program. If POP was not used, the 
computer would return to the calling routine, and the second player 
would not get a turn. 

Line 810 removes the letters from TEMP2$ and replaces them 
with dashes. This line is used when the Escape key is pressed. The 
answer string stored in TEMP2$ is moved to TEMP$. The 
subroutine at line 870 is used to change any letters to dashes. This 
string is moved back to TEMP2$. The computer returns to the main 
program because a GOTO rather than a GOSUB is used to send 
the computer to this line. 

Line 830 is the sound subroutine used to tell the player when 
the up arrow is on the screen. 

Line 840 is the sound used to prompt the player to press a let¬ 
ter key. 

Lines 870-890 change the letters in a string to dashes. The 
values of the characters in TEMP$ are checked to make sure the 
character is a graphics character or a letter. Only the spaces and 
punctuation marks remain. 

Lines 900-970 encrypt the quotation and print the encryption 
on the screen. First, every slash in the quotation is changed to a 
comma. The slashes are used in the DATA lines because a comma 
is used to indicate the end of the information in the DATA line. 
The slashes are changed to commas in the string so the quotation 
is printed correctly on the screen. 
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If the character of the string is a space or punctuation mark 
the routine skips the character completely, since it is only interested 
in changing the letters. If variable D is set to 1, the letter is changed 
to another letter or a graphics character. The ASCII value of the 
letter is decreased by 64. This number is the position of the letter 
in the alphabet. For example, the ASCII value of A is 65. So by 
subtracting 64 from it we arrive at 1—telling us it is the first letter 
of the alphabet. The letter or graphics character in this position 
in ALPH$ is substituted for the letter in TEMP$. The loop con¬ 
tinues until all the letters in TEMPS have been changed. 

Lines 980-990 end the program. The screen changes colors 10 
times. The computer then loops at line 990 until the Reset key is 
pressed. 

Lines 1000-1019 contain the quotations used in this program. 
The quotation marks must be inserted as well as the slashes. The 
slashes are changed to commas within the program, but if commas 
were used in these DATA lines, the computer would not read the 
entire line. It stops whenever it reaches a comma. These lines can 
be changed to any quotation or sentences as long as slashes are 
used instead of commas, and the line does not exceed 100 letters 
and characters. 
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Chapter 4 



Logic Games 

The programs in this chapter require a thorough analysis of each 
problem to win the game. Much more is involved than luck or skill. 
Each game follows a logical sequence of steps. In some of the games 
the winner is determined by the first move; others require careful 
thinking and evaluation of the moves made. Like chess, you should 
try to be one step ahead of the computer. Good luck! 

PEBBLES 

Objective of the game: To force the computer to take the 
last pebble. 

Directions: There are 23 pebbles scattered on the beach. You 
can take one, two, or three pebbles in each turn. The computer 
can take one to three pebbles in its turn. The player who takes the 
last pebble is the loser. 

The screen clears and the title of the program is displayed. The 
pebbles are scattered on the screen. The computer asks if you want 
to go first. If you do, press the Y key, otherwise, press N. You are 
asked to enter a number from one to three: this is the number of 
pebbles you will take. After you have entered a number, that 
number of pebbles disappears from the screen. The computer will 
also take away some pebbles. This number is placed on the screen 
so you will know how many pebbles the computer took. These peb¬ 
bles are also erased from the screen. 
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The program continues until one player is forced to take the 
last pebble. When all the pebbles are gone, the computer displays 
the winner. The winning message will remain on the screen until 
the Start key is pressed. If you do not want to play again, press 
the System Reset key. Figure 4-1 is the flowchart, Fig. 4-2 the 
character set for this program, and Listing 4-1 is the code. 

Line 60 sets aside memory for the S array. This array keeps 
track of the locations of the pebbles. 

Line 70 PEEKs at location 106 to see how much memory is 
in the computer. Eight is subtracted from this amount, and the value 
is stored in location 204. This is the new address of the character 
set that will be transferred to RAM. The address of the character 
set in ROM is placed into location 206. This information is used 
in the assembly language subroutine that moves the character set 
from ROM into RAM. 

Line 80 places the code for the assembly language subroutine 
in memory addresses 1536-1555. The computer uses the USR com¬ 
mand to execute the assembly language subroutine in RAM. Line 
90 contains the decimal codes for the routine that moves the 
character set in ROM into RAM. 

Line 100 changes the screen to graphics 18. This is graphics 
2 with no text window. 

Line 110 calculates the beginning address of the character set 
in RAM. The value of A is multiplied by 256. The FOR-NEXT loop 
reads the code for the new characters. The first character that will 
be changed is the fourth character of the character set. Its first byte 
is 24 bytes after the first byte of the character set. Two characters 
in the character set will be changed. 

Lines 120-130 contain the new codes for the two new char¬ 
acters. 

Line 140 POKEs location 756 with the value of A. The new 
character set in RAM will be used by the computer. 

Line 150 places the name of the program on the screen. 

Line 160 begins the FOR-NEXT loop that places the pebbles 
on the screen. The loop counts from 1 to 23 because there are 23 
pebbles to be placed. 

Line 170 selects two random numbers. One is the column, the 
other the row. The column can be any number from 1 to 17. The 
row can be any number from 3 through 9. This keeps the pebbles 
in the middle of the screen. 

Line 180 uses the LOCATE command to check the location 
the computer picked. If this location already contains a pebble, the 
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Fig. 4-1. Flowchart for Pebbles. 
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computer is sent back to line 170 to pick another location. The value 
of P will be 32 if the location is empty. 

Line 190 picks a number, either 1 or 2. This determines which 
character the computer will print for the pebble. The next random 
number is the color value. The offset that will be added to the 
character value depends on which number was chosen. Either peb¬ 
ble can be printed in any of the four colors. The computer starts 
by setting variable CL to 0. It then checks the value of Cl. Each 
possible value changes the value of CL. 
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Fig. 4-2. Character set for Pebbles. 


Listing 4-1. Pebbles. 


10 REM PEBBLES - A GAME OF TAKE-AWAY 
2 0 REM CHAPTER 4 - LOGIC GAMES 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 19S3 

50 REM THERE ARE 23 PEBBLES ON THE BEA 
CH. YOU CAN TAKE AWAY 1,2,OR 3 ON ONE 
TURN. LOSER TAKES THE LAST ONE 
60 DIM S<23,2) 

70 A-PEEK (106)-8♦ POKE 204,A’.POKE 206, P 
EEK(756).REM SET THE LOCATIONS TO MOVE 
THE CHARACTER SET 

80 FOR X = 1536 TO 15555READ V5POKE X,Vt 
NEXT X ♦ Q=USR (1536) \REM MACHINE L.ANGLJAG 
E SUBROUTINE TO MOVE CHARCTERS 
90 DATA 104,162,4,160,0,177,205,145,20 
3,200,208,249,230,206,230,204,202,208, 
242,96 

100 GRAPHICS 18:REM COLOR TEXT - NO TE 
XT WINDOW 

110 A1“A#256 J FOR X = 24 TO 39 X READ V5POK 

e x+ai,v:next x:rem add new characters 

120 DATA 0,60,126,254,254,254,252,120 
130 DATA 0,60,118,218,222,182,236,120 
140 POKE 756,AJREM USE THE NEW CHARACT 
ER SET 

150 POSITION 6,15? *6 } "F'ebBL.es ! " l REM b 
Bs! ARE INVERSE 

160 FOR X=1 TO 23 * REM PRINT 23 PEBBLES 
170 C=INT(RND(l)*17)+i:R=INT(RND(l)*6) 
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+35REM PICK A ROW AND COLUMN 
180 LOCATE C,R,P5 POSITION C,R5? #6JCHR 
$(P)JJIF P<>32 THEN 170 5 REM CHECK THAT 
LOCATION 

190 W = INT(RND<1) #2)JCl=INT(RND(1)*4)5C 
L=05IF C1>0 THEN CL=325IF C1>1 THEN CL 
=128JIF Cl>2 THEN CL=160 
200 POSITION C,R5? *65CHR$(3+CL+W) ; 5RE 
M PUT IT ON THE SCREEN 

210 s(x,d=c:s(x, 2 )=r:next x:x=x-i:rem 

REMEMBER WHERE IT IS & KEEP GOING UNT 
II. ALL ARE ON SCREEN 

22.0 POSITION 1,115? #65"qo first <y/n) 
?"}JREM SEE IF PLAYER WANTS TO GO FIRS 
T 

230 OPEN *2,4, 0 , "1C " 5 GET *2, B I CLOSE *2 
JIF BO89 AND B<>78 THEN 230 J REM GET A 
KEY & CHECK IT 
240 IF 6 = 78 THEN 300 

250 GOSUB 50 0 ’.POSITION 1,11:? *6J"how 
Many (1 ,2,3)?"JREM PRINT MESSAGE IN IN 
VERSE 

26 0 OPEN *2,4,o,"k:":get *2,P5 CLOSE *2 
: IF P<49 (]R P>51 OR P-48>X THEN 25 0 5 RE 
M CHECK THE NUMBER 

270 P=P-485FOR M=X TO X-P+l STEP -15PO 
SITIQN S(M,1 ) ,S < M,2)t ? *6}" "J5 NEXT M5 
REM ERASE THE PEBBLES 

28 0 FOR TIME-1 TO 20 0 5 NEXT TIME * X-X-P * 

IF X--0 THEN W=15GOTO 400 J REM SUBTRACT 

THE NUMBER TAKEN 

290 REM COMPUTER'S TURN 

300 POSITION 1,115? #6;" 

"5 REM ERASE THE MESSAGE 
310 P=X-(INT<(X-l)/4)*4+l)JIF P=0 THEN 
P=INT(RND(1)*3)+15IF P>X AND X=1 THEN 
P=11REM FIGURE OUT HOW MANY TO TAKE A 

320 POSITION 1,115? #6?"I TOOK "JP5FOR 
TIME=1 TO 1 0 0 5 NEXT TIME 5 REM TELL HOW 
MANY ARE TAKEN AWAY 

330 FOR M-X TO X-P+l STEP -15 POSITION 
S ( M > 1),S(M,2)5? *6 5" "55 NEXT M 5 REM REM 
OVE THE PEBBLES 

340 GOSUB 510 5 X-X-P 5 IF X = 0 THEN W==0 5GO 
TO 40 0 

350 GOTO 250 
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400 GRAPHICS 18iPOSITION 5,5J? 161 "THE 
WINNER IS " 

410 POSITION 5,7 IIP W THEN ? #6?"THE C 
OMPUTER" ’.GOTO 430 REM UPPER CASE INVER 
S 

420 ? $6; "the hunsn" IREN LOWER CASE IN 
VERSE 


430 IF PEEK (53279) 06 THEN 430 5 REM STA 
Y HERE UNTIL START KEY IS PRESSED 
440 RUN 

500 SOUND 0,100,14,8JF0R TIME = 1 TO 50’. 
NEXT TIME:SOUND 0,0,0,0JRETURN 
510 SOUND 0,200,10,8JF0R TIME=1 TO 505 
NEXT TIME:SOUND 0,0,0,0 5FOR TIME=1 TO 
50 0 ’.NEXT TIME:RETURN 


Line 200 prints the pebble on the screen. The value of variables 
CL and W are added to 3 to get the right pebble in the right color. 

Line 210 stores the values of R and C in array S. Variable X 
is the number of the pebble. The column is stored in the first part 
of that element and the row in the second. The loop continues un¬ 
til all the pebbles are placed. The X variable is decreased by 1 so 
it contains the actual number of pebbles. 

Line 220 asks if the player wants to go first. 

Line 230 opens the keyboard for a read, then waits until a key 
is pressed. Once a key is pressed, the keyboard is closed. If the 
value of the pressed key is not 89 or 78, the computer loops back 
to the beginning of this line. The computer loops at this line until 
a Y or N is entered. 

Line 240 sends the computer to line 300 if the pressed key was 
an N. The computer will go first. 

Line 250 uses the subroutine in line 500 to make a sound. This 
is the prompt. The computer then prints a message on the screen. 
You are asked to enter the number of pebbles you would like to 
take. 

Line 260 opens the keyboard for a read. The computer waits 
until a key is pressed. If the value of the key is less than 49 or 
greater than 51, or greater than the number of pebbles left on the 
screen, the computer goes back to line 250 to make a sound and 
wait for another entry. The computer loops between these two lines 
until the 1, 2, or 3 key is pressed. 
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Line 270 subtracts 48 from the value of P. Variable P holds 
the value of the pressed key. To get the number the key represents, 
the computer must subtract 48 from the value of P. The FOR- 
NEXT loop begins with the last pebble printed in the screen and 
erases the number of pebbles entered. The computer uses the 
values stored in the S array to find the pebbles. The space is printed 
at these locations. The loop continues until the correct number of 
pebbles are erased. 

Line 280 is a timing loop that slows the program down. The 
number of pebbles taken away is subtracted from variable X. The 
next time pebbles are erased, the pebble pointed to by X is erased. 
Variable X also keeps track of how many pebbles are on the screen. 
If the value of X is 0, variable W is set to line number 400 and the 
computer is sent to line 400 to declare the winner. 

Line 300 begins the computer’s turn. The message on the 
screen is erased. 

Line 310 decides how many pebbles to take away. This is not 
a random number selection. To win the game, the computer makes 
sure the number of pebbles left is one more than a multiple of four. 
This way, no matter how many pebbles you take, on your second 
from the last turn you can only take away enough pebbles to leave 
two, three, or four for the computer. The computer, of course, will 
then take away one less than the number of pebbles left and win 
the game. Only if the value of P is 0 will the computer choose a 
random number. This means that you, the player, know the win¬ 
ning combination, and are using it in the game. If there is only one 
pebble left, the computer will take it. 

Line 320 prints the number of pebbles the computer will take. 
The timing loop slows the program down. 

Line 330 contains the FOR-NEXT loop that removes the peb¬ 
bles the computer took. Again, the loop begins with the last peb¬ 
ble left on the screen and uses the values from the S array to find 
and erase the pebbles. 

Line 340 uses the subroutine at line 510 to make a sound. The 
number of pebbles the computer took is subtracted from variable 
X. If there are no pebbles left, the computer sets variable W to 
zero and goes to line 400 to end the program. 

Line 350 sends the computer to line 250 to continue the game. 

Line 400 begins the routine that ends the game. The screen 
is cleared by using the graphics command. The winning message 
is printed on the screen. 

Line 410 declares the computer the winner if variable W is set 
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to 1. The computer goes to line 430 to play another game. 

Line 420 is used when the value of W is 0. This line declares 
the user the winner. 

Line 430 loops until the Start key is pressed. Then the pro¬ 
gram runs again. To end the program press the System Reset key. 

Line 500 is the sound prompt for the player’s turn. 

Line 510 makes the sound when the computer has removed 
some pebbles. 

NIM 

Objective of the game: To take the last character. 

Directions: This game is a little more involved than Pebbles. 
You can play against the computer or another person. You may 
want to start by playing against another person. The computer is 
programmed to win! 

You are asked to enter the number of rows you want in this 
game. You can play with any number from three to seven. The top 
row always has one character; each row under it has two more 
characters than the previous row. 

You have the option of going first. You are always Player One. 
Your opponent, whether it is the computer or another human, is 
Player Two. 

The screen clears and the rows of characters are displayed. 
Your character is on the left side of the screen, your opponent’s 
is on the right. Lise the up and down arrows to move your character 
up or down until you are in front of the row in which you want to 
remove characters. There is no limit to the number of characters 
that can be taken in one turn as long as all the characters taken 
are in the same row. To remove the characters, press the right ar¬ 
row key. Your character will move right over the characters in that 
row. Press the space bar when you have taken all the characters 
you want in that row. 

Your opponent will do the same. The second player moves the 
up and down arrows to move his character up and down on the 
screen. The left arrow moves this character to the left. The space 
bar ends this player’s turn. 

If you are playing with the computer, the computer will 
automatically move its character and remove characters from the 
row. 

When all the characters are removed, the player who took the 
last character is declared the winner. Figure 4-3 is the flowchart 
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for this program, Fig. 4-4 is the character set, and Listing 4-2 is 
the code. 

Line 50 sets aside the memory used for the arrays and strings. 
The T array is used to keep track of the characters in the rows. 
CH$ is one character, CH1$ is the other. The R array keeps track 
of the number of characters in each row. 

Line 60 PEEKs at location 106 to see how much memory is 
in the computer. This amount is decreased by 8, and the new value 
is stored in location 204. This is where the character set will begin 
in RAM. The location of the character set in ROM is stored in loca¬ 
tion 206. This information is used by the assembly language 
subroutine that moves the character set from ROM into RAM. 

Lines 70-80 read the code for the assembly language subroutine 
and place it into memory locations 1536-1555. 

Line 90 uses the USR command to send the computer to the 
assembly language subroutine at memory location 1536. Line 100 
contains the decimal codes for the routine. 

Line 110 finds the first byte of the character set in RAM and 
stores it in variable CHBAS. The computer will change eight 
characters in the new character set. 

Line 120 continues the loop that changes the characters in the 
character set. 

Lines 130-195 contain the code for the new characters. 

Line 200 changes the screen to graphics 18. This is graphics 
2 with no next window. The computer POKEs location 756 with 
the value of A to change the character set used by the computer 
from the set in ROM to the new set in RAM. 

Lines 210-230 print the program options on the screen. The 
game can be played against the computer or another human. 

Line 240 opens the keyboard for a read. The computer waits 
until a key is pressed. The value of the key that has been pressed 
is stored in variable K. After a key is pressed, the keyboard is 
closed. 

Line 250 checks to see if the value of K is greater than 127. 
If it is, the computer subtracts 128 from this value. Location 694 
is POKEd with 0 to reset the flag for normal video. 

Line 260 checks to see if the value of K is greater than 95. If 
it is, the value of K is decreased by 32. The key is now uppercase 
instead of lowercase. Location 702 is POKEd with 64 to reset it 
to uppercase letters. 

Line 270 looks at the value of K. If it is 72 or 67, the C or H 
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Fig. 4-3. Flowchart for Nim. (Continued through page 190.) 
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key was pressed. The computer goes to line 290 to wait to con¬ 
tinue the program. 

Line 280 sends the computer back to line 240 to get another 
key value. 

Line 290 clears the screen to continue the program. 

Line 300 asks how many rows are needed. There are 11 spaces 
between the S in ROWS and the number 3. 

Line 310 opens the keyboard for a read. The number entered 
is placed into variable R. The keyboard is closed. 
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Fig. 4-4. Character set for Nim. 


Listing 4-2. Nim. 


10 REM NIM - A CHINESE GAME OF TAKE-AW 
AY 

20 REM CHAPTER 4 ~ LOGIC GAMES 

30 REM BY L.M. SCHBEIBER FOR TAB BOOKS 

9 0 REM COPYRIGHT 1983 

50 DIM T(13,7),CH$(1)»CH1$(1)»R ( 7) 

60 A-F'EEK ( 1 06 ) -8 5 POKE 2 0"), At POKE 206,P 
EEK(756) 

7 0 FOR X-1536 TO 1555:READ V J REM GET T 
HE MACHINE CODE TO MODE THE CHARACTER 
SET 

so poke: x,u:next x:rem put it in memor 

Y 

9 0 G-USR(1536)J REM RUN IT 
100 DATA 10"), 162,"), 160,0 ,177,205,1")5,2 
0 3,20 0,208,2")9,23 0,2 06,23 0,20") ,2 02,2 08 
, 2")2,96 

110 CHBAS-A>k256:F0R X=CHBAS+2") TO CHBA 
S+87JREAD UJREM READ THE NEW CHARACTER 
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s 

120 POKE X,VI NEXT X 1REM CHANGE SOME OF 
THE CHARACTERS 

ISO DATA 0,4,8,52,126,126,124,56 
140 DATA 0,128,128,192,224,112,56,30 
150 DATA 0,16,16,56,40,84,40,24 
160 DATA 0,0,16,56,56,124,254,124 
170 DATA 15,13,71,143,130,154,190,230 
130 DATA 15,11,142,79,132,142,174,254 
190 DATA 240,176,226,241,65,89,125,103 
195 DATA 240,208,113,242,33,113,117,63 
20 0 GRAPHICS 18 5 POKE 756, A 5 REM USE COL¬ 
OR TEXT AND NEW CHARACTER BET 
210 POSITION 4,41? #6?"PLAY AGAINST" 
220 POSITION 6,61? *61"HUMAN OR" 

230 POSITION 6,81? *61"COMPUTER" 

24 0 OPEN : I2,4,0 , "K 1 " 5 GET =12, K1 CLOSE *2 

1 REM GET AN INPUT FROM THE KEYBOARD 
250 IF K>127 THEN K=K-1281 POKE 694,0 1R 
EM TOGGLE INVERSE VIDEO FLAG TO NORMAL 
260 IF 1095 THEN K=K-321P0KE 702,641RE 
M TOGGLE THE SHIFT/LOCK BACK TO CAPS 
270 IF K=72 OR K>67 THEN 290 1REM F'LAYE 
R PRESSED ' H' OR 'C' 

280 GOTO 240 

290 PRINT *6 >CHR$(125)1 REM CLEAR THE S 
CREEN FOR NEXT MESSAGE 
300 POSITION 3,21? $6,"HOW MANY ROWS 
3-7?"1 

310 OPEN +2,4,0,"K5"5GET *2,R!CLOSE *2 
320 IF R>127 THEN R=R-1281F’0KE 694,01R 
EM TOGGLE INVERSE FLAG 

330 IF R<51 OR R>55 THEN 3105REM INCOR 
RECT NUMBER 

340 POSITION 12,31? #6}CHR$(R)1R-R-48 
350 POSITION 2,61? #6}"WHO GOES FIRST? 

II 

360 POSITION 6,81? t61"PLAYER 1"!REM 1 
IS INVERSE 

370 POSITION 6,101? #6!"PLAYER 2"1REM 

2 IS INVERSE 

38 0 OPEN #2,4,0,"K!"SGET *2,PI CLOSE #2 
1 REM GET AN INPUT FROM THE KEYBOARD 
390 IF P>127 THEN P=P-1281 POKE 694,01R 
EM TOGGLE INVERSE VIDEO FLAG TO NORMAL 
40 0 IF P-49 OR F'=50 THEN 420 5REM F'LAYE 
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R PRESSED '1' OR '2' 

410 GOTO 300 

420 p=p-48 5 REM GET THE. VALUE OF P 
430 FOR X=1 TO 75FOR Y=1 TO 135T<Y,X>= 
05NEXT Y 5 NEXT X 5 REM CLEAR THE MATRIX 
440 V=15FOR X = 1 TO R5 FOR Y = 1 TO V 5 T < Y , 

x>=i:next y:v=v+2:next x:v=v-2:rem fil 

L THE MATRIX FOR THE OBJECTS 
450 GRAPHICS 185POKE 756,A5REM USE COL¬ 
OR TEXT AND NEW CHARACTER SET 
460 POSITION 8,05? *6J"nlw"5REM TITLE 
THE PAGE - Im ARE INVERSE 

47 0 FOR X= 1 TO R J FOR Y = 1 TO V5Z=INT(RN 
D(1)*4)5REM PICK A CHARACTER 

48 0 IF T (Y > X ) THEN POSITION Y+3,X+25? 

♦ 6 5 CHR$(Z+3) 5 REM PRINT THE CHARACTER I 
F IT'S IN THE MATRIX 

49 0 NEXT Y 2 NEXT X 

500 POSITION 1,15? *6 5"1"5POSITION 18, 

15? *6}"2”5 5REM 2 IS INVERSE 

510 C1=15 R1=3 5 C2=l8 5 R2=3 5 REM ROW AND C 

OLUMN FOR BOTH PLAYER'S TOKENS 

520 POSITION C1,R15? *65"' "5POSITION C 

2,R 2 5 ? *6 5")":REM ) IS INVERSE 

530 ON P GOTO 540,550 

54 0 TA=0 5C = C15M=R1!CH*=" ' " 5CH 1 ( F=" ( " IPO 
SITION 1,15? *6}"1"5POSITION 18,15? *6 
5" "5GOSUB 590 5P=3-P 

545 REM ), *, & 2 ARE INVERSE 

55 0 TA- : 0 5 C=C2 5 M~R2 5 CH$ = " ) " 5 CH1$ = "#" t PO 
SITION 1,15? *65" "5 POSITION 18,15? *6 

♦ ii 2 •• 

560 IF i<~72 THEN GOSUB 590 5P=3~P 5GOTO 
540 

57 0 TT=05TR=05GOSUB 90 0 5 P=3-P5 GOTO 54 0 
590 POSITION C,M 5 ? *6$CH* 

60 0 OPEN *2,4,0,"K 5"SGET *2,A 5 CLOSE *2 
5 IF A>127 THEN POKE 694,0 5 GOTO 600 
610 IF A=45 OR A ==61 THEN 650 
620 IF A=43 OR A=42 THEN 700 
630 IF A=32 AND TA THEN POSITION C,M5? 
*6 5" "5 RETURN 

64 0 GOTO 60 0 5REM NOT AN ARROW KEY 
650 IF COl AND C O-18 THEN 60 0 5 REM NOT 
IN CORRECT COLUMN 

660 POSITION C,M 5 ? *6?" "5 5 REM ERASE T 
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he: character 

67 0 IF A=45 THEN M=M~1 *.IF M=2 THEN M=R 
+22GOTO 6902REM REPOSITION THE CHARACT 
ER 

680 IF A=6.1. THEN M=M+1 2IF M=R+3 THEN M 
= 3 

690 GOTO '590 2 REM GET ANOTHER DIRECTION 
70 0 Y=Q2FQR X = 1 TO 13 5 Y = Y + 'T (X , M-2) 2 NE'.X 
T X 2REM CHECK IF THERE'S ANYTHING IN T 
HIS ROW 

710 IF Y=0 THEN 600JREM CAN'T TAKE-AWA 
Y FROM AN EMPTY ROW 

720 POSITION C > M 2 ? 16!" "}5 REM ERASE T 

he: character 

730 IF A=43 THEN C=C-12IF C<2 THEN C=C 

+1JREM CAN'T WRAP AROUND 

740 IF A=42 THEN C=C+12IF 017 THEN C = 

C-12 REM CAN'T WRAP AROUND THIS WAY EIT 

HER 

750 POSITION C , M 21F C/2=INT(C/2) THEN 
? #6;ch$;:goto 76o:rem mode the charac 
TER 

755 ? *6}CH1* 

760 GO SUE! 2000 MF P=1 AND 0=4 THEN IF 
TCC-3,M-2) THEN T(C-3,M-2>=05TA=1JGOT 
0 780 

770 IF P=2 AND C<=16 THEN IF T<C~3,M~2 

) THEN T(C-3,M--2)=0:TA=1 

780 Y=0 * FOR X=1 TO 13JY = Y + T(X,M-2)JNEX 

T XJREM CHECK FOR EMPTY ROW 

790 IF Y THEN 60 0 * REM CAN STILL. TAKE-A 

WAY 

800 FOR X=1 TO 13 2FOR Y=1 TO 7JIF T(X, 
Y)= 0 THEN NEXT Y2 NEXT XJGOTO 850 2 REM C 
HECK FOR ALL EMPTY 
810 POSITION C,M 2 ? *6 2" "J 2 RETURN 
850 POSITION 5>M+:L 2? *6 2 "THE WINNER" 
860 POSITION 5 , M + 2.2 ? #6 2 "PLAYER "}P 
870 POKE 708 ,F’EEK ( 7 08 ) +1 2 IF PEEK<708> = 
255 THEN POKE 708,02REM CHANGE THE COL 
ORS 

880 IF PEEK< 53279)06 THEN 870 2REM CHA 
NGE COLORS UNTIL START KEY IS PRESSED 
890 RUN 

90 0 RO=0 2 TT=0 2E=0 2F = 0 2 T = 0 2 0 = 0 J REM CI..EA 
R THE COUNT VARIABLES 
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910 FOR Y=1 TO R JFOR X=1 TO 13MT=TT+T 
<x,y)*.next x:r(Y)=tt:rem count the nuh 

EER OF CHAR/ROW 

92 0 IF TTOO THEN RO=RO+lJREM SEE HOW 
MANY ROWS 

930 TT = 0:NEXT YMF RO=l THEN 1750 
940 FOR Y=1 TO RJIF R(Y)>=8 THEN E=E + 1 

:r(Y)=r(Y>-o:rem get the 8's 

95 0 IF R(Y)> = 4 THEN F=F + 1«R<Y)=R(Y)-4J 
REM GET THE 4'S 

96 0 IF R(Y>>=2 THEN T-T+1J R(Y)=R(Y)-2 J 
REM GET-THE 2'S 

970 IF R (Y ) = 1 THEN 0 : =0+11R (Y ) =0 J REM GE 
T THE l'S 

980 NEXT YJFOR Y=1 TO R JFOR X = 1 TO 13J 

tt=tt+t<x,y)jnext x:r<Y)=ttmt=o jnext 
yjrem count the numbers again 

990 OD=0 • IF E/20INT (E/2 ) THEN 0D=8 
10 00 IF F/20INT (F/2) THEN 0D^0D + 4 
1010 IF T/2-OINT < T/2) THEN 0D==0D+2 
1020 IF 0/2OINT (0/2) THEN OD=OD+l 
1030 IF NOT OD THEN 1800 
1040 IF 0D : =8 OR 00=4 OR 00 = 2 OR 00 = 1 T 
HEN 1190 

1050 OD=0 J IF EOl THEN 1100 
1060 IF F/20INT(F/2) THEN 0D=4 
1070 IF T/2-OINT(T/2) THEN 00=00+2 
1080 IF 0/2OINT (0/2) THEN 0D=00 + 1 
1090 GOTO 1190 

1100 IF F/2=INT(F/2) THEN 1140 
1110 IF T/2<>INT(T/2) THEN 0D=0D+2 
1120 IF 0/2OINT (0/2 ) THEN 00=0D + 1 
1130 GOTO 1190 

1140 IF T/2 = INT(T/2) THEN 1170 
1150 IF 0/2OINT < 0/2) THEN OD = OD+l 
1160 GOTO 1190 

1170 IF 0/2=INT (0/2) AND ODOO THEN 18 
00 

1180 OD=OD+1 

1190 FOR Y = R TO 1 STEP -IMF R<Y»OD T 
HEN 1840 

1200 NEXT Y:GOTO 1810tREM NON LARGER 
1750 FOR Y = 1 TO RMF R<Y) = 0 THEN NEXT 
Y J END :REM BBBBBBBBUUUGGGG! ! ! ! 

1760 OD=R(Y)J GOT O 1840 JREM ERASE THE W 
HOLE ROW 
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180 0 8D=3JREM REMOVE 3 IF IT'S EVEN 
18:1.0 FOR Y~R TO 1 STEP -1JIF R(Y)>=OD 
THEN 1840 

182 0 NEXT Y * REM KEEP LOOKING 

1830 OD=15GOTO 1810JREM NO ROW HAS 3 O 

R MORE 

1840 FOR X=M TO Y+25POSITIQN C,X-1J? * 
6 }" "JREM ERASE THE LAST CHARACTER 
1850 POSITION C,X5? *6JCH$5REM MOVE TH 
E CHARACTER 

I860 FOR TIME=1 TO 100*NEXT TIMEJNEXT 
XJX=X~1 

1870 POSITION C,X5? *6J" "JREM ERASE T 
HE CHARACTER 

1880 C=C~1JPOSITION C*X5IF C/2=INT<C/2 
) THEN ? : I6» CH* * GOTO 1885 

1881 ? #6}CHI* 

1885 GOSUB 2000 JFOR TIME = 1 TO 50 * NEXT 
TIME 

1890 IF C<=16 THEN IF T(C~3*X~2> THEN 
T (C-3,X-2)=0 J OD-OD-1J IF OD=0 THEN 1.910 

1900 GOTO 1870 

1910 FOR 2=1 TO 13 J FOR A=1 TO 7JIF T(Z 
»A)=0 THEN NEXT AJNEXT 2JM=XJP0P JGOTO 
850JREM CHECK FOR ALL EMPTY 
1920 POSITION C * X 5 ? #6J" "JRETURN 
2000 SOUND 0,10,12,6JSOUND 1,2,2,5JFOR 
TIME=1 TO 5 JNEXT TIME 5 SOUND 0,0*0*053 
OUND 1,0*0,05 RETURN 

2010 SOUND 0,SO*C/2,8JFOR TIME=1 TO 5 0 
5 NEXT TIME 5 SOUND 0*0*0,05 FOR TIME = 1 TO 
50JNEXT TIME J RETURN 


Line 320 checks to see if the value of R is greater than 127. 
If it is, the inverse key was pressed. The computer subtracts 128 
from this value and resets the flag for normal video by POKEing 
location 694 with 0. 

Line 330 checks to see if the value of R is between 51 and 55. 
If it isn’t, the pressed key was not between 3 and 7. The computer 
goes to line 310 to get another key. 

Line 340 prints this number on the screen. To get the actual 
number, the computer subtracts 48 from the value or R. 

Lines 350-370 ask who will be the first player. Enter a 1 for 
Player One, a 2 for Player Two. 



Line 380 opens the keyboard for a read. The computer waits 
until a key has been pressed. The value of this key is stored in 
variable P. The keyboard is closed. 

Line 390 checks to see if the value of P is greater than 127. 
If it is, the computer subtracts 128 from the value of P. The loca¬ 
tion 694 is POKEd with 0. This resets the flag for normal video. 

Line 400 checks to see if the value of the key is 49 or 50. The 
one key has a value of 49, the two key the value of 50. If the value 
of P is either, the computer goes to line 420 to begin the program. 

Line 410 sends the computer to line 380 to get another entry. 

Line 420 subtracts 48 from the value of P. This is the actual 
number of the pressed key. 

Line 430 begins a FOR-NEXT loop that clears the array. If the 
array is not cleared before it is used, it may contain erroneous in¬ 
formation. 

Line 440 fills the array. Variable V indicates how many 
elements are used in that row. There is one character in the first 
row and two additional characters in each subsequent row. 

Line 450 clears the screen with the graphics command. Every 
time this command is used, the address of the new character set 
must be placed in location 756. 

Line 460 prints the title of the program near the top of the 
screen. 

Line 470 begins the FOR-NEXT loop that places the characters 
into the array. The computer chooses a random number from 0 to 
4. There are four characters that can be used. 

Line 480 checks to see if there is a value in the element of the 
array to which X and Y are pointing. If there is, the character is 
printed on the screen. The value of Z is increased by 3. 

Line 490 continues the loop. 

Line 500 prints the number near the top of the screen. 

Line 510 sets variables Cl, Rl, C2, and R2. These variables 
indicate the row and column in which are the characters for Players 
One and Two. 

Line 520 prints the characters for both players on the screen 
in their positions. 

Line 530 sends the computer to the correct line depending on 
the value of P. Variable P indicates whose turn it is. 

Line 540 sets the value of variable TA to 0. This variable will 
change to 1 when a character is taken. The column and row of the 
character are transferred to variables C and M. The characters that 
make up this player are placed in strings CH$ and CH1$. This 
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player’s number is printed on the screen and the other player’s 
number is removed. The computer uses the subroutine in line 590 
to continue this player’s turn. When the computer returns to this 
line, the value of P will be subtracted from 3 so P will contain the 
number of the next player. 

Line 550 clears variable TA and sets variables C and M to the 
values of C2 and R2. This is the row and column of the second 
player’s character. The characters that make up this character are 
placed in CH$ and CH1$. The number for this player is placed on 
the screen and the opponent’s number is erased. 

Line 560 checks to see if variable K is 72. If it is, another human 
is playing and the computer goes to the subroutine at line 590 to 
get this player’s move. When the computer returns, the value of 
P is reset for the other player and the computer goes to line 540 
for the first player’s move. 

Line 570 is used when the computer is playing. Variables TT 
and TR are cleared. The computer uses the subroutine in line 900 
to figure out how many characters to take, and in which row. When 
the computer returns to this line it is sent to line 540 for the first 
player’s turn. 

Line 590 begins the subroutine used by the players to move 
their character. The character is printed on the screen in the cor¬ 
rect position. 

Line 600 opens the keyboard for a read. The computer waits 
until a key is pressed. The value of this key is stored in variable 
A. The keyboard is closed. If the value of A is greater than 127, 
the inverse key was pressed and the computer POKEs location 694 
with 0 and sends the computer back to the beginning of the line 
to get another key. Location 694 is the inverse flag. POKEing 0 
to this location clears the flag. 

Line 610 checks to see if the value of A is 45 or 61. If it is, 
the up or down arrow key was pressed and the computer is directed 
to line 650 to move the character. 

Line 620 checks the value of A for 43 or 42. If it is either, the 
computer goes to line 700 to move the character up. 

Line 630 checks to see if the space bar was pressed. If it was 
and the value of TA is not 0, the computer will erase the character 
and return to the main program. 

Line 640 sends the computer to line 600. The pressed key was 
not one of the four arrow keys. 

Line 650 checks to see if the character is in the first or last 
column. If it is, it can be moved up or down. If it isn’t, the com- 
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puter goes to line 600 for another entry. 

Line 660 erases the character in its current position. 

Line 670 checks to see if the value of A is 45. If it is the value 
of M is decreased by 1. The character will move up the screen. 
If the character has reached the top of the screen, it will wrap 
around and be repositioned on the bottom of the screen. The com¬ 
puter is sent to line 690 to print the character on the screen. 

Line 680 checks to see if the value of A is 61. If it is, the 
character will move down the screen. Once the character reaches 
the bottom of the screen, it is repositioned at the top of the screen. 

Line 690 sends the computer to line 590 to print the character 
on the screen and get another direction. 

Line 700 is used when the right or left arrow key is pressed. 
Variable Y is cleared. The computer checks the elements in the 
array for this row. If any are not 0, the value of Y will be changed. 
The loop continues until the entire row is checked. 

Line 710 checks the value of Y. If it is still zero, the row is 
empty and the computer goes back to line 600 to get another entry. 

Line 720 erases the character at its current position. 

Line 730 checks the value of A. If it is 43, the character should 
move to the left. The value of C is decreased by 1. If it is less than 
2, it would be off the screen. The characters do not wrap-around 
the screen. The value of C is reset. 

Line 740 checks to see if the right arrow was pressed. If it was, 
the value of C is increased by 1. Again, this value is checked to 
see if it would place the character off the screen. If it would, the 
variable C is reset. 

Line 750 prints the character on the screen. There are two 
characters that can be used. If variable C is even, the character 
in CH$ is used and the computer goes to line 760 after the character 
is printed. 

Line 760 prints the alternate character. 

Line 770 uses the subroutine in line 2000 to make a sound. If 
variable P is 1 and the value of C is equal to or greater than 4, the 
computer checks the array to see if the character took a character 
away from the row. If there is a value in this element, it is erased 
and variable TA is set to 1. The computer goes to line 780 to con¬ 
tinue the game. 

Line 770 checks to see if this is the second player’s turn. If 
it is and this player is in a position that could be held by a row 
character, the computer checks the element of the array to see if 
it is occupied. If it is, the character in that position is erased and 
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variable TA is set to 1. 

Line 780 clears variable Y. Each element of the array at this 
location is checked to see if it is occupied. If any are, the value of 
Y changes. 

Line 790 sends the computer back to line 600 for another en¬ 
try if there are any characters left in this row. 

Line 800 checks the entire array. If the entire array is empty, 
the game is over and the computer goes to line 850 to end the game. 

Line 810 erases the character from the screen and returns to 
the main program. The most characters that can be taken in one 
turn is the number of characters the row held. Once the row is 
empty, that player’s turn is over. 

Lines 850-890 end the game. The computer declares the win¬ 
ner based on the value of P. The computer loops, changing the color 
of the screen until the Start key is pressed. To end the program, 
press the System Reset key. 

Line 900 is used by the computer when it is playing the game. 
Variables RO, TT, E, F, T, and O are set to 0. These variables 
are used to count in this subroutine. 

Line 910 counts the number of characters left in each row, and 
places that number in the correct element of the R array. Variable 
TT counts how many characters are in a particular row. 

Line 920 checks variable TT; if it is not 0, there are characters 
in that row and variable RO is increased by one. This variable 
counts how many rows have characters in them. 

Line 930 clears variable TT and continues the loop. If variable 
RO is one, the computer goes to line 1750 to find that row. 

Lines 940-980 look at all the rows to see how many characters 
are in each row. If the row has eight or more characters in it, 
variable E is increased by 1 and 8 is subtracted from this row’s 
value. If the row has four or more characters in it, variable F is 
increased by 1 and 4 is subtracted from the number of characters 
in this row. If the row has two or more characters in it, variable 
T is increased by 1 and 2 is subtracted from the number of 
characters in this row. If there is only one character in this row, 
variable O is increased by 1 and the row is set to 0. A row with 
13 characters in it would increment the E, F, and O variables. The 
loop continues until all the rows have been checked. The number 
of elements in all the rows are counted again. 

Lines 990-1030 check to see if any of the values are odd. If so, 
this is the number of characters that could have been removed from 
a row. If none of the rows are odd the computer will remove one 
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character from a row. 

Line 1040 checks to see if the value of OD is one particular 
value. If it is, the computer is sent to line 1190 to find the row that 
has this number of characters in it. 

Lines 1050-1180 determine how many characters the computer 
will take. First the computer clears variable OD. If variable E is 
not 1, there are two or more rows with eight or more characters 
in it. The computer is sent to line 1100. The computer continues 
through the lines checking the values of E, F, T, and O. When the 
computer finally figures out how many characters it will remove, 
it goes to line 1190. The key to winning this program is to remove 
only enough characters to leave one set of eight, four, two, and one 
characters. This game is binary in nature. 

Line 1190 looks for the row that contains the number of 
characters the computer wants to remove. Once this row is found, 
the computer is sent to line 1840. 

Line 1200 continues the loop. If no row is found, the computer 
goes to line 1810. 

Line 1750 is a trap. The computer comes to this line from line 
930. Variable RO is set. If the computer goes through this entire 
loop and cannot find the row there is a bug in the program. The 
only time this line is used is when there is only one row on the screen 
that has characters in it. The computer wants to erase the entire 
row so it can win the game. 

Line 1760 erases the entire row of characters by setting variable 
OD to the value of that row. The computer is sent to line 1840 to 
erase the row of characters. 

Line 1800 sets the value of OD to 3 if there is an even number 
of ones. 

Lines 1810-1830 looks for a row that has that number or more 
of the characters indicated by variable OD. If the computer cannot 
find this number of characters, the value of OD is changed to 1 and 
the loop is tried again. 

Lines 1840-1900 remove the characters from the row by mov¬ 
ing the computer’s character over the existing character on the 
screen. These lines continue until all the characters that should be 
removed are removed. 

Line 1910 checks to see if there are any characters left on the 
screen. If all the characters have been removed, the computer is 
sent to line 850 to end the game. 

Line 1920 erases the computer’s character and returns to the 
main part of the program. 
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Lines 2000-2010 are the two sound routines used by the 
computer. 


SYMBOLIZE 

Objective of the game: To figure out the symbol and color 
sequence the computer is thinking of. 

Directions: This program is written for one or two players. 
In the two-player mode, each player has a different color and sym¬ 
bol sequence to work out. The first person to guess the correct se¬ 
quence wins. If the players cannot guess the correct sequence within 
ten tries the computer prints the answers. 

The computer asks for the number of players. Enter numeral 
1 or 2. Then the computer displays the menu for three levels. In 
the first level, the computer chooses from two different symbols. 
These symbols can be any of four colors. The second level uses 
four symbols, and the third level uses six. Press 1, 2, or 3 for the 
level number. 

The screen will clear. Near the bottom of the screen, the com¬ 
puter prints the symbols and four colors this level uses. To enter 
your guess, press the letter key that represents the first letter of 
the color you want. To change the color, press another color key. 
Press the Return key to keep the color. Now press the number key 
for the symbol. Do not press the Shift key, just the number key. 
The symbol appears on the screen in the color indicated. To change 
the symbol, press a different number. To enter symbol, press the 
Return key. 

The computer displays two numbers. The first number in¬ 
dicates how many symbols are correct in color, and in correct posi¬ 
tion. The second number tells you how many symbols in the correct 
color are in the wrong position. If, after 10 tries you cannot enter 
the correct symbol sequence in the correct colors, the computer 
will tell you what the code was. 

To play again, press the Start key. To quit, press System Reset. 
Figure 4-5 is the flowchart for this program, and Listing 4-3 is the 
code. 

Line 50 sets aside memory space for the strings used in this 
program. SYM$ contains the code for the first player, SYM2$ the 
code for the second player. GUESS$ holds the symbols the player 
entered. TEMP$ is a temporary storage string. 

Line 60 changes the screen to graphics 18. This is graphics 2 
with no text window. 
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Line 70 prints a message on the screen. The computer needs 
the number of persons playing this game. 

Line 80 opens the keyboard to read a keystroke. The value of 
the pressed key is stored in variable P. The keyboard is closed after 
a key is pressed. 

Line 90 checks to see if the 1 or 2 key was pressed. If it was 
not, the computer goes back to line 80 to get another entry. The 
computer loops through these two lines until the proper key is 
pressed. 

Line 100 prints the entered number on the screen immediately 
following the question. 

Line 110 subtracts 48 from the value of P to get the actual 
number. The ATASCII value of 1 is 49, the value of 2 is 50. 

Lines 120-140 print the menu on the screen. The three levels 
of play and the combinations the computer uses at each level are 
displayed on the screen. 

Line 150 opens the keyboard to read a keystroke. The value 
of the pressed key is stored in variable L. The keyboard is closed 
after a key is pressed. 

Line 160 checks to see if the value of the pressed key is be¬ 
tween 49 and 51. If it is not, the computer goes back to line 150 
to get another keystroke. 

Line 170 subtracts 48 from the value of L. The result is 
multiplied by two. This is the number of symbols the computer will 
use for the code. 

Line 180 begins the loop that chooses the code for the com¬ 
puter. The first loop counts from 1 to the value of P. This is the 
number of players for which the computer needs code. The sec¬ 
ond loop counts from 1 to 4. There are four codes in one sequence. 
Variable C holds the color of the symbol. The computer has four 
colors to choose from. Variable S is the symbol for this position. 
The number of symbols the computer can choose from is deter¬ 
mined by variable L. The same symbol and the same color can be 
repeated in the line. 

Line 190 sends the computer to the correct program line, 
depending on which color was chosen. 

Line 200 uses the code for the symbol without adding a number 
to it. This symbol is colored light green. 

Line 210 adds 32 .to the value of S. This symbol is yellow. 

Line 220 adds 128 to the value of S. The symbol is red. 

Line 230 adds 160 to the value of S. This symbol is colored blue. 

Line 240 continues the loop for the next position in GUESS$. 
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Fig. 4-5. Flowchart for Symbolize. (Continued through page 206.) 




























Listing 4-3. Symbolize. 


10 REM SYMBOLIZE - A 'MASTERMIND' GAME 
USING COLORS AND SYMBOLS 
20 REM CHAPTER 4 - LOGIC GAMES 
30 REM BY L.M♦ SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1984 

50 DIM SYM* < 4) ,SYM2* < 4) , GUESS* < 4), TEMP 
$ ( 4 ) 

60 GRAPHICS 18:REM GRAPHICS 2 WITH NO 
TEXT WINDOW 

70 POSITION 1,1J? *6;"HOW MANY PLAYERS 
?" * 

so open *2,4,o,"k:":get *2,p:close *2: 

REM GET THE NUMBER OF PLAYERS 

9 0 IF P<49 OR P>50 THEN 80•REM CAN ONL 

Y BE ONE OR TWO PLAYERS 

100 POSITION 19, IT? 4 : 6 JCHR$(P) ♦ REM SHO 

W THE NUMBER 

110 p=p-48* REM GET THE ACTUAL NUMBER 
115 REM PRINT MENU IN INVERSE 
120 POSITION 1,3 4 .? +6 J "WHICH LEVEL <1- 
3)?":POSITION 1,4:? #6 J"LEVEL 1 - 2 SY 
MBOLS 4 COLORS" 

130 POSITION 1,65? *6J"LEVEL 2-4 SYM 
BOLS 4 COLORS" 

140 POSITION 1,81? #65"LEVEL 3-6 SYM 
BOLS 4 COLORS" 

150 open *2,4,o, h k:":get *2,l:close *2 
:rem get the level 

160 IF L<49 OR L>51 THEN 150 5 REM ONLY 
THREE LEVELS 

170 L=(L-48)*2:REM GET THE RIGHT NUMBE 
R OF SYMBOLS 

18 0 FOR X : =l TO PJFOR PL=1 TO 4:C=INT(R 
ND( 1 ) *4 ) +1 :S : =INT (RND ( 1 )*L > +1 \ REM PICK 
A COLOR AND SYMBOL 
190 ON C GOTO 200,210,220,230 
200 GUESS* (PL , F'L ) =CHR* (S ) : GOTO 240 
210 GUESS$(PL,F'L)=CHR$(S+32) :GOTO 240 
220 GUESS PL, PL) =CHR$ ( S+128 ) : GOTO 240 
230 GUESS* <PL,F'L)=CHR*<S + 160) 

240 NEXT PL:SYM2*=GUESS$:iF X=1 THEN S 
YM*=GUESS* 

250 NEXT X 

26 0 ? : I6} CHR* (125) J POSITION 0,11‘.FOR X 
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= 1 TO LI? !6JCHR*(X+32)}" " J5NEXT X 
270 ? *6?"0 q B r " J 1REM 'B' AND 'r ' AR 
E INVERSE 

280 FOR X : =l TO PJ POSITION (X-l)*l0+5,0 
5? +6 {X ♦NEXT X1TRY=0 

290 TRY=TRY + 1 IFOR PP = 1 TO P1FOR X = 1 TO 
4 

300 POSITION X-l+( (PP-1)*10) ,TRY1? *65 
"?" JGOSIJE! 10 00 

310 GUESS* (X , X ) =CHR* <05 NEXT X J REM GET 
THE GUESS 

32 0 POSITION 0,9 5 IF PP = 1 THEN TEMP*=SY 
M$JIF GUESS* : ~SYM$ THEN ? *6;" "JPP}» 

GOT IT'!"1GOTO 380 

330 IF PF~2 THEN TEMP*=SYM2»JIF GUESS$ 
=SYM2* THEN ? -16 J" "}PP}" GOT IT!!"1G 

OTO 380 
340 GOSUB 500 

35 0 NEXT PP5IF TRYOIO THEN 290 
360 POSITION 0,111? #6?" 

"11 REM CLEAR THE BOTTOM ROW 
370 POSITION 0,101? *6J"1 "}SYM4}tIF 
PL=2 THEN POSITION 10,105? #61"2 "*,SY 

M 2 * 5 

380 IF PEEK(53279 ) 06 THEN 380 
390 RUN 

500 RP = 0 5RS=0IFOR V=1 TO 4 

510 IF TEMP*(V,V)=GUESS*(V,V) THEN RP~ 

RF' + l 5 TEMP* (V,V)=" "1 GUESS*(V,V) = " " 

520 NEXT V 

530 FOR V=1 TO 41 IF TEMP*(V,V)=" " THE 
N NEXT V1 GOTO 570 

54 0 FOR V11 TO 4 5 IF TEMP* ( V , V ) =GUESS* 
(VI,VI) THEN TEMP*(V,V>=" "1 GUESS*(V1, 
Vl) = " " 1RS=RS+:L 1GOTQ 560 
550 NEXT VI. 

560 NEXT V 

57 0 POSITION (F’F'-l) *10+5,TRY 1? *65RPi" 
"5 CHR*(RS+48+128)1 RETURN 
1000 FOR ZZ=1 TO 21 SOUND 0,50,1 0 ,1 0 1 FO 
R TI ;: = 1 TO 501 NEXT TI 

1010 SOUND 0,0, 0,0 IFOR TI=1 TO 50 5 NEXT 
TI5 NEXT ZZ 

1020 C=01S-0 IFOR PL = 1 TO 2 IGOSUF.i 110 0 1 

NEXT PL 5 RETURN 

1100 OPEN ; I2,4,0 , "K5 " 

1110 GET ♦2,K!IF K=155 THEN CLOSE *25R 
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ETURN 

1120 IF K>1 2 7 THEN K=K~128«POKE 694,0J 
REM RESET TO NORMAL UIDEO 
1130 IF K>95 THEN K=K-96JP0KE 702,645R 
EM SET FOR UPPER CASE 

114 0 IF PL = :L THEN IF K=66 OR K=82 OR K 
=79 OR K=71 THEN 1170 

1150 IF PL=2 THEN IF 1048 AND KC49+L T 
HEN K=K+S-16!G0T0 1200 
1160 GOTO 1110 

1170 S=0:iF K=66 THEN K=19458=128 
1180 IF K=82 THEN K=2425S=96 
119 0 IF K = 71 THEN K=1035S=-32 
1200 POSITION X-1+((PP-1)*10>,TRYJ? *6 
}CHR*(K>:C=KJGOTO 1110 


The code in GUESSS is placed into SYM2$. If the value of X is 
1, the contents of GUESSS are placed in SYM$. 

Line 250 continues the loop until both players have their own 
code to guess. 

Line 260 clears the screen. The characters the player can 
choose from are printed near the bottom of the screen. The number 
of characters are determined by the value of L. 

Line 270 prints the four colors on the screen. Be sure to enter 
the uppercase “B” and the lowercase “r” in inverse. Otherwise, 
the letter will not appear in four colors. 

Line 280 prints the number of players on the screen. The 
players will enter their guesses under their number. Variable TRY 
is set to 0. This is the number of tries the players have had. 

Line 290 increases variable TRY. This is the current turn 
number for the players. The FOR-NEXT loop accepts one guess 
from each player. The X is the position of the entry both on the 
screen and in GUESSS. 

Line 300 prints the question mark on the screen. The column 
of the question mark is determined by the value of X and the player 
number. The row is set by the value of TRY. The computer is sent 
to the subroutine in line 1000 to get an entry. This subroutine also 
prints the entry on the screen. 

Line 310 records in GUESSS the entered character. The ele¬ 
ment of GUESSS that this character will occupy depends on the 
value of X. The loop continues until all four characters are entered. 

Line 320 places the code chosen by the computer in TEMP$. 
If the code entered by the player is the same as the code the corn- 
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puter has in SYM$, the player guessed the code. The computer 
goes to line 380 to end the game. 

Line 330 places the code the computer has chosen for the sec¬ 
ond player in TEMP$. Then the computer checks the code the 
player entered against its code. If both are the same, this player 
has guessed the code. 

Line 340 sends the computer to the subroutine at line 500 where 
the computer checks the characters the player entered against the 
characters the computer has in its string. 

Line 350 continues the loop. If the value of TRY is not 10, the 
computer goes back to line 290 for another turn. If the value of 
TRY is 10, the computer prints the answer on the screen. 

Line 360 clears the bottom row on the screen so the answer 
can be printed there. 

Line 370 prints the code the computer chose for each player. 
If there was only one player, the computer will print the code for 
that player. 

Line 380 is the end of the program. The computer loops at this 
line until the Start key is pressed. 

Line 390 runs the program after the Start key is pressed. To 
end the game completely, press the System Reset key. 

Line 500 is the subroutine that checks the player’s answer 
against the code the computer chose for that player. The first 
number indicates the number of symbols that are the right color 
and in the right position. The second number is the number of sym¬ 
bols that are the right color but in the wrong position. Variables 
RP and RS are cleared. These are the variables that count the 
number of characters in the right position, or are right but in the 
wrong position. The FOR-NEXT loop looks at each character in 
the string. 

Line 510 checks the character in one string against the 
character in the same position in the other string. If both characters 
are the same, variable RP is increased by 1 and the characters are 
removed from both strings. 

Line 520 continues the loop until every character in one string 
is compared against the character in the same position in the other 
string. 

Lines 530-560 begin'the second FOR-NEXT loop. This time 
the computer compares the characters in the other positions of the 
other string. If any of these characters are the same, the RS variable 
is increased by 1 and the characters are removed from both strings. 
Before the computer compares the characters it checks to see if 
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there is a character in that position. If there isn’t, the loop continues. 

Line 570 prints the values of RP and RS on the screen. The 
computer then returns to the main program. 

Lines 1000-1200 contain the subroutine that gets the character 
entry from the player. The computer makes a sound to prompt the 
player. Then the computer is sent to the subroutine at line 1100. 
Here the keyboard is opened for a read. The value of the pressed 
key is stored in variable K. If the value of K is 155, the keyboard 
is closed and the computer returns to the line that sent it. If the 
value of K is greater than 127, the computer subtracts 128 from 
it and POKES a 0 into location 694 to reset the inverse flag. If the 
value of K is greater than 95, the key is in lowercase. The com¬ 
puter subtracts 96 from this value and POKES location 702 with 
64. This resets the keyboard for uppercase. If this is the first en¬ 
try from the player, the computer accepts only the letters O, B, Y, 
and R. If it is the second entry, the computer accepts only the 
numbers that correspond with the symbols the computer can use 
at this level. On the first entry, the computer sets the value of S 
to the entered color. This value is added to the value of the symbol 
so the computer will print the symbol in the correct color on the 
screen. This routine loops until the Return key is pressed twice, 
once to accept the color, and once for the symbol. 

TOWERS OF HANOI 

Objective of the game: To move the entire column of disks 
from the first spindle to the last. The disks must be moved one 
at a time, without placing a larger disk on a smaller one. 

Directions: At first, this program appears to be a very sim¬ 
ple, logical puzzle. However, if you lose your concentration, you 
may lose the puzzle. On the screen you will see three spindles or 
poles. The pole on the left side of the screen contains nine disks. 
The disk on the bottom is the largest, the disk on the top is the 
smallest. Above the pole is a small magnet. A joystick is needed 
to move the magnet. The joystick uses the first port. To move the 
magnet, push the joystick to the right or left. To raise or lower the 
disk, press the fire button on the joystick. When the disk is at¬ 
tached to the magnet, it will move across the screen when the 
magnet is moved. 

The computer keeps track of how many moves you made. Com¬ 
pete with your friends to see who can transfer all the disks from 
one spindle to the other in the shortest number of moves. Figure 
4-6 is the flowchart, Fig. 4-7 is the character set for this program, 
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Fig. 4-6. Flowchart for Towers of Hanoi. 
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Fig. 4-7. Character set for Towers of Hanoi. 


213 






































Listing 4-4. Towers of Hanoi. 


10 REM TOWERS OF HANOI 

20 REM CHAPTER 0 - LOGIC GAMES 

30 REM BY i_,M. SC HR FIBER FOR TAB BOOKS 

0 0 REM COPYRIGHT 1980 

5 0 DIM A$(05),P$(5),BL$ < 5), P ( 9,3 ) 

60 A-=PEEKCL06)-8:POKE 2 0 0, At POKE 206,P 
EEK(756) 

70 FOR X=1536 TO 1555{READ VJPOKE X,V5 
NEXT XJREM MODE THE CHARACTER SET 
80 DATA 100,162,0,160,0,177,205,105,20 
3,200,208,209,230,206,230,200,202,208, 
202,96 

90 GRAPHICS 17 * Q r -USR < 1536) SPOKE 756, AJ 
CHARSET=A*256 + 85 REM LOCATION OF THE ! 
100 READ B J FOR X-0 TO 7JPOKE CHARSET+X 
,B:NEXT XI READ B 

110 C= 0 J FOR X : =16 TO 63 {POKE CHARSET+X, 

b:c=c+uif cob then next x:goto 100 

120 C = 0 J READ B * NEXT X * REM GET THE NEXT 
BAR CODE 

130 DATA 255,63,15,3,192,200,252,0 
1O0 POKE CHARSET+60,60{POKE CHARSET + 65 
,192{POKE CHARSET + 66,6{POKE CHARSET+67 
,27{POKE CHARSET+68,28 

150 POKE CHARSET+69,5{POKE CHARSET + 70, 
200{POKE CHARSET+71,10{REM make charac 
TER 

160 FOR X : =l TO 05 {READ B ! A$ ( X , X ) =CHR$ ( 
B){NEXT X 

170 DATA 32,32,161,32,32,32,37,33,38,3 

2,32,132,129,135,32,32,163,161,168,32, 

32,33,33,33,32,133,129,129,129,130 

180 DATA 160,161,161,161,167,35,33,33, 

33,00,129,129,129,129,129 

19 0 P*=" "5 BL$=P${M=0{REM FIVE SPA 

CES 

200 DL=PEEK(560)+PEEK(561)*256{POKE DL 
+6,7{REM CHANGE THE FIRST ROW TO MODE 
2 

2.10 POKE 711,86 {POKE 709,200 {POSITION 
0,15? *6?") towers )"{REM INVERSE LOWE 
R CASE LETTERS 

220 POKE 559,065 FOR X=CHARSET+512 TO C 
HARSET+1020{POKE X , 0{NEXT X 5 REM CLEAR 


214 



PLAYER/GRAPHICS AREA 

23 0 POKE 53277,3JPOKE 623,4 5 POKE 54279 
,A 2 REM ENABLE P/M GRAPHICS & SET PRIOR 
HIES 

24 0 FOR S=5:L2 TO 768 STEP 128 2 FOR X = 60 
TO 1052 POKE CHARSET+S+X,30 2 NEXT X2NEX 

T S 2 REM DRAW THE POSTS 

25 0 FOR 8 = 571 TO 827 STEP 1282 POKE CHA 
RSET + S,122 NEXT S 

260 FOR X=CHARSET+927 TO CHARSET+9322R 

EAD S2POKE X,S2NEXT X 

270 DATA 28,54,99,99,99,99 

280 FOR X=1 TO 192 POSITION X,23 2? *6JC 

HR$ (1)22 NEXT X 2REM DRAWS THE BASE 

290 POKE 704,202 2 POKE 705,442 POKE 706, 

1 08 2 POKE 707,9 2 REM COLOR THE POSTS 

30 0 POKE 53248,71 2 POKE 53249,1272 POKE 
53250,1832POKE 53251,712PS=712 REM PUT 
POSTS & MAGNET ON SCREEN 
310 FOR X=1 TO 92P(X,1)=X2P(X,2)=02P(X 
,3)=0 2NEXT X 2 REM PUT DISK VALUES INTO 
STORAGE AREA 

320 FOR X=22 TO 14 STEP -12 POSITION 1, 
X2P=(X~14)*5+12? #6}A$(P, F'+4 ) 2 NEXT X2P 
L=12R = 0 2REM PUT DISKS ON POST 
330 POSITION 2,32? *65"MOVES "}M 
340 IF STICK(0)=7 THEN GOSUB 40 0 2POKE 
77,0 2 REM MOVE TO RIGHT 

35 0 IF STICK(0)=11 THEN GOSUB 450 2 POKE 
77,0 2REM MOVE TO LEFT 
360 IF STRIG(0)=0 THEN GOSUB 5002POKE 
77,0 2REM DROP OR PICK UP DISK 
370 FOR X = 1 TO 50 2 NEXT X2 SOUND 0,0, 0,0 

2 IF F‘ (1,3 ) = 0 THEN 3302REM TIMING LOOP 
& START AGAIN 

380 FOR X=1 TO 152FOR B=0 TO 82POKE 70 
4+13, X+B 2 SOUND 0,20*6,10,102 NEXT B 2 FOR 
Tl = l TO 10 2NEXT TI2NEXT X 
390 GOTO 380 

40 0 IF PS<183 THEN PS=PS+562POKE 53251 
, PS 2 POSITION PL,R2? #6 2 BL$ 2 PL=F'L+7 
410 POSITION PL,R2? #6{P* 

420 RETURN 

450 IF F'S>71 THEN PS=PS-562 POKE 53251, 
PS 2 POSITION PL,R2? *6 2 BL* 2 PL. = PL-7 2 GOTO 
410 
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46 0 RETURN 

500 OOSIF PS=71 THEN C=11PL=11REM FIN 

D WHICH POST THE MAGNET'S ODER 

510 IF PS=127 THEN C=21PL=8 

520 IF PS=183 THEN C=3JPL=15 

530 IF C=0 THEN RETURN 

540 IF R=6 THEN 60 0 * REM HOLDING A DISK 
550 FOR X=1 TO 91IF P(X,C)=0 THEN NEXT 
XIRETURN 1 REM FIND THE DISK 
560 S=P(X,C) 1P=(S-1)*5+llP$=A$(P,P+4) 1 
R=X + 131P(X > C) = 0 

570 FOR X=R TO 7 STEP -1{POSITION PL,X 

:? *6 ;bl$:position pl,x~i:? *6 ip*:next 
x:r=x:sound 0 , 10 , 10,10 

580 RETURN 

60 0 FOR X=1 TO 91 IF P(X,CXS AND P(X,C 
)<>0 THEN RETURN 1 REM DON'T DROP ON SM 
AL.LER DISK 

610 IF P(X,C)<>0 THEN P=X~l!GOTO 630 
620 NEXT X1P=X-1 

63 0 FOR X=R TO R + 6+P1 POSITION PL,X1? * 

6 ;bl$:position pl,x+h? *6*,p$:next x:r 

= 01P$=BL$1 SOUND 0,250,19,85M=M+1 
690 P(P,C)=SJreturn 


and Listing 4-4 shows the code. 

Line 50 sets aside the memory needed for strings and arrays 
in this program. A$ holds all the disk characters. P$ holds the 
characters for one disk. BL$ is entirely blank and erases the disk. 
The P array contains the values for the disks on each spindle. 

Line 60 finds out how much memory is in the computer. The 
new character set will occupy the memory just above the screen 
memory. The computer subtracts 8 from the amount of memory 
in the computer. This value is stored in location 204. The computer 
stores the beginning address of the ROM-based character set in 
location 206. This information will be used by the computer when 
it moves the character set from ROM into RAM. 

Line 70 reads the code for the assembly language subroutine 
and places it in locations 1536-1555. Line 80 contains the decimal 
codes for the routine that moves the character set from ROM into 
RAM. 

Line 90 changes the screen to graphics 17. This is graphics 1 
with no text window. The computer uses the USR command to ex- 
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ecute the assembly language subroutine that begins at location 
1536. When the computer returns to this line, the value of A is 
POKEd into location 756. Now the computer uses the character 
set in RAM. The first byte of the character in the character set 
that will be changed is stored in variable CHARSET. 

Line 100 reads a value from the DATA line. This value is 
POKEd into the next eight bytes of the character set. The new 
character set is series of bars that make up the disks. Each bar is 
slightly shorter than the bar before it. This way, several bars can 
be put together. The beginning and end bar determine its length. 
Instead of reading eight codes for each character, the computer 
reads each code once and POKEs it into the next eight locations. 
The first character to be changed is the exclamation point. When 
the computer finishes this loop, it reads another value. It is ready 
to change the next character in the character set. 

Line 110 clears variable C. This variable counts the number 
of codes that have been placed in the character set for a particular 
character. The FOR-NEXT loop begins with 16 and counts to 63. 
The next six characters, beginning with the pound sign, are 
changed. The computer POKEs the new value of B into the 
character set. Variable C is increased by 1. If the value of C is not 
8, the loop continues, POKEing this value into the character set 
until it POKEs it eight times. When all the characters have been 
changed, the computer goes to line 140 to continue the program. 

Line 120 is used when variable C is equal to 8. The variable 
is cleared and the next value is read. The loop continues until all 
the characters have been changed. 

Line 130 contains the code for the seven characters. The last 
value, 0, is included but never used. The computer reads the next 
value before it continues the loop. After the seventh character is 
changed, the computer reads a value from the data line, then con¬ 
tinues the loop. While the value of X is larger than 63, the pro¬ 
gram continues. If the zero wasn’t there, the computer would try 
to read the next value in the DATA line. If there were no more 
values, the program would crash. 

Lines 140-150 continue the program. One more character is 
changed in the character set. This character is the character printed 
on both sides of the word “towers.” 

Line 160 begins another FOR-NEXT loop. This time the com¬ 
puter reads the ATASCII values of the characters that make up 
the disks. All nine disks are placed in A$. 

Lines 170-180 contain the codes for the disks. 
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Line 190 clears the contents of P$ and BL$. Variable M is set 
to.0. This is the variable that counts the number of moves the player 
makes. 

Line 200 find the first byte of the display list. The address of 
the display list is found in locations 560 and 561. The address of 
the display list is stored in variable DL. The sixth byte after the 
first byte of the list is changed to a graphics 2 row. This row is 
twice as high as a graphics 1 row. 

Line 210 changes some of the colors used in the program. The 
title of the program is printed on the screen. 

Line 220 POKEs location 559 with 46. This tells the computer 
that the player/missile graphics will be displayed in double-line 
resolution. The computer clears all the memory used for the 
player/missile graphics. 

Line 230 enables the player/missile graphics by POKEing loca¬ 
tion 53277 with 3. The priorities are set by POKEing location 623 
with 4. The computer is told where the player/missile graphics begin 
by POKEing location 54279 with the value of A. This is the same 
value used for the character set. The character set occupies the 
first 512 bytes of this memory location, the player/missile graphics 
the next 512 bytes. 

Line 240 places the code for the three poles into the area set 
aside for the player/missile graphics. The computer steps by 128 
because the players are 128 bytes apart. The same code is used 
for all three poles. 

Line 250 places the caps on the poles. 

Line 260 places the code for the magnet into the fourth player’s 
area. 

Line 270 contains the code for the magnet. 

Line 280 draws the base for the poles on the screen. 

Line 290 sets the colors for the poles and the magnet. 

Line 300 POKEs the position of the three poles and the magnet 
into locations 53248-53251. This places the players on the screen. 
Variable PS is set to 71. This is the position of the magnet. 

Line 310 places the values 1 through 9 in the first part of P 
array. The other two columns are set to 0. The numbers 1 through 
9 are the weights of the disks; the lightest disk is 1 and the heaviest 
is 9. 

Line 320 places the disks on the first pole. The characters that 
make up the disk are taken from A$. The value of variable P is 
the position of the code in A$. The loop continues until all the disks 
are printed on the screen. Variable PL is set to 1 and the value 
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of R is set to 0. PL is the column in which the first disk is printed; 
R will contain the ROW. 

Line 330 prints the number of moves on the screen. This 
variable is increased every time a disk is released. If a disk is raised 
and released over the same pole, the move is still counted. 

Line 340 checks to see if the joystick has moved. If the value 
is 7, the stick was moved to the right and the computer uses the 
subroutine at line 400 to move the magnet. Location 77 is cleared 
to disable the ATTRACT mode. This way the screen will not 
change colors while you are trying to move the disks. 

Line 350 checks to see if the joystick has moved to the left. 
If it has, the computer uses the subroutine at line 450 to move the 
magnet. The ATTRACT mode is disabled when the computer 
returns to this line. 

Line 360 sends the computer to the subroutine at line 500 to 
pick up or drop a disk. 

Line 370 contains a short timing loop. This gives the player 
a chance to release the fire button or the joystick. The sound is 
turned off and the computer checks to see if the smallest disk is 
in the top position of the third pole. If it is not, the computer goes 
to line 330. 

Lines 380-390 end the program. The computer loops here, 
flashing the screen and making sounds until the System Reset key 
is pressed. This program does not run again unless the player types 
the word RUN after pressing the System Reset key. 

Line 400 checks the value of PS. If it is less than 183 the magnet 
can be moved to the right. The value of PS is increased by 56 and 
this value is POKEd into location 53251. The disk under the 
magnet is moved along with the magnet. 

Line 410 prints the disk under the magnet. 

Line 420 sends the computer to the main program. 

Line 450 checks the value of PS to see if the magnet can move 
to the left. If it can, the value of PS is decreased by 56 and this 
value is POKEd into location 53251. The disk under the magnet 
is erased and the computer is sent to line 410 to print the disk under 
the magnet. 

Line 460 sends the computer back to the main program. 

Line 500 is used to release or pick up a disk. Variable C is set 
to 0. The computer checks the value of PS to see which pole the 
magnet is over. If the value of PS is 71, the magnet is over the 
first pole. Variables C and PL are set to 1. 

Line 510 checks to see if the magnet is over the second pole. 
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If it is, the value of PS is 127. Variable C will be set to 2 and the 
value of PL to 8. 

Line 520 sets variable C to 3 and the variable PL to 15 if the 
magnet is over the third pole. 

Line 530 checks the value of C. If it is 0, the magnet is not 
over a pole. The computer returns to the main program. 

Line 540 checks the value of R. If it is 6, the magnet is holding 
a disk. The computer is sent to line 600 to drop the disk. 

Line 550 checks the value of the P array in the position of the 
magnet. Variable C indicates which pole the magnet is over. The 
loop will continue as long as the values in this array are 0. If the 
loop finishes, there are no disks on this pole and the computer 
returns to the main program. 

Line 560 places the value of the disk into variable S. The value 
of P is set to the position of this disk in A$. The disk is transferred 
to P$. The row this disk is in is the value of X plus 13. The disk 
is removed from the array by setting its position in the array to 0. 

Line 570 moves the disk up the pole up to the magnet. The 
FOR-NEXT loop begins with the row the disk is currently in and 
ends just below the magnet. The disk is erased, then printed one 
row above. This loop continues until the disk is just below the 
magnet. The computer makes a sound. 

Line 580 returns the computer to the main program. 

Line 600 drops the disk from the magnet. The computer checks 
the top disk on the pole. If this disk has a value less than the value 
of the disk under the magnet, the disk on the pole is smaller and 
the computer will not drop the disk on the pole. The computer 
returns to the main program. 

Line 610 checks to see if there are any disks on this pole. If 
there are, the value of P is one less than the number of disks on 
the pole. This places the disk just above the top disk. The com¬ 
puter is sent to line 630 to drop the disk. 

Line 620 continues the loop. The value of P is set to one less 
than the value of X if the entire pole is empty. 

Line 630 drops the disk onto the pole. The computer begins 
with the value of R and continues until it is at the location of P 
plus R plus 6. The disk is erased, then printed one row lower. The 
loop continues until the disk is resting on the platform or another 
disk. The value of M is increased by one every time a disk is 
released. 

Line 640 places the value of the disk into the P array and returns 
to the main program. 
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Chapter 5 



Simulations 

The computer is the ideal tool to simulate a situation that may be 
too dangerous or not available at a particular time or location. The 
games in this chapter are traditional games that require some equip¬ 
ment. Your computer will display the items needed on the screen. 
You control them with the keyboard or joystick. Most of these 
games require good hand-eye coordination when played with the 
proper equipment; the same coordination is needed for the com¬ 
puter version. 

DUCK DARTS 

Objective of the game: To eliminate all the ducks on the 
screen. 

Description: This game is similar to the skill game hawked 
at every local carnival: hit the duck and win a prize. 

In the computer version, you have a choice of three levels of 
play. Each level places an additional row of ducks on the screen. 
To select the level of play, press the Select key. Each time the Se¬ 
lect key is pressed another row of ducks is printed on the screen. 
When the correct level is displayed on the screen, press the Start 
key and the game begins. Use the joystick to move the dart back 
and forth across the screen. Press the fire button to release the dart. 
You have three darts. Every duck you hit is worth 10 points. The 
blue ducks are worth 50 points. The game continues until a score 
of 10,000 is reached or all the darts are used. To play again, press 
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Fig. 5-1. Flowchart for Duck Darts. 
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Fig. 5-2. Character set for Duck Darts. 


Listing 5-1. Duck Darts. 


10 REM DUCK DARTS 

20 REM CHAPTER 5 - SIMULATIONS 

30 REM BY L.M. SCHREIBER FOR TAB BOOKS 

TO REM COPYRIGHT 1903 

50 DIM AT(1 ) ,DUCK*(25),DUCK1$(25),DUCK 
2T(25),ARROW*(20 ) /TEMPT(1) 

60 A : "PEEK ( 106)--165POKE 20T,A5POKE 206, 
PEEK(756) 

70 FOR X~1536 TO 15551 READ V * POKE X,VJ 
NEXT X t REM MOVE THE CHARACTER SE T- 
80 DATA 104,182,4,160,0,177,205,145,20 
3,200,208,249,230,206,230,204,202,208, 
242,96 

90 GRAPHICS :l.8:Q==USR< 1536) 5 POKE 756,AJ 
CHARSET=A*256+2T:F0R X=CHARSET TO CHAR 
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SET+155READ V 5 POKE X,V5NEXT X 

95 FOR X ; =:L TO 20 5 READ V5 ARROW*(X,X>=CH 

R*(V) 5 NEXT X 

10 0 POKE 54279,A1 POKE 559,62 5POKE 5327 
7,35 P 0K E 53248,05VT=PEE K(134)+PE EK <135 
) *256 5 STTI3=PEEK < 140 ) +PEEK (141) *256 
110 STROFF=A*256 +1024 -STTB5 ST3=IN T (8TR 
OFF/256) 5 ST4-STROFF-256*ST35 POKE VT + 2, 
ST4 5POKE VT+3,ST3 5 POKE VT+4,255 
12 0 P O K E V T+5,0 '.POKE V T + 6,2.5 5 5 P O K E VT + 
7,05 A* (1) = CHR* < 0 ) 5 A* < 255 ) -CFIR* ( 0 ) 5 A* ( 2 
)=A* 

130 DATA 24,60,108,57,31,15,7,0,56,112 
,226,196,248,240,224,0,0,16,56,108,214 
,16,16,16,16,16,16,0,0,0,0,0,0,0 , 0 , 0 
140 ? #6 J CHR*(125)5 POSITION 5,55? *65" 
DUCK"I POSITION 11,7 5? *65"DARTS"5REM D 
ARTS IS INVERSE 

150 POSITION 3,7 5? #6;"**"5 POSITION 14 
,10 5? *6 5CHR*(3)5CHR*(4)5POSITION 5,11 
5? #6 5 CHR* (1.63) 5 CHR* (164) 

160 POSITION 11,65? #65CHR*(131)5CHR*( 
132) 

170 AL~3 5SOO 5FOR X = 1 TO 24 STEP 35C=I 
NT(RND(0)*4) + 15ON C GOTO 180,190 ,200,2 
10 

180 DUCK* (X,X + 2 )=="*$ "5 GOTO 22.0 
19 0 D U C K * (X) == C H R * (3) 5 D U C K $ (X +1) - C1-1R $ (4 
)5 DUCK* < X + 2) = " "5 GOTO 220 

2 0 0 D U C K * < X)=C HR$(163)5D U CK*(X +1)=C H R$ 
(164) 5 DUCK* ( X+2 )" "5GOTO 220 

210 D U C K*(X)-C HR*(131)5D UCK *(X +1)~C H R* 
(132)5DUCK*(X+2)=" " 

220 NEXT X 5 X-0 

23 0 POSITION 0,X 5? *65 DUCK*(X*2+1,X*2 + 
20)5 POSITION 0,X+15? #6 5 A*(1,40) 

240 IF PEEK(53279)=7 THEN 240 
250 IF PEEK(53279)-6 THEN 310 
260 IF PEEK (53279) 05 THEN 240 
27 0 X = X+1 51F X>2 TI IEN X = 0 
280 FOR R = 1 TO 1 0 0 5 NEXT R 
290 GOTO 230 

300 REM SET UP THE DUCKS 
310 FOR R = 1 TO 24 STEP 3 5 C = INT(RND(0 ) * 
4)+15 ON C GOTO 320,330,340,350 
320 DUCK1 *(R,R + 2) = "♦* "5GOTO 360 

3 3 0 D U C K1 * (R ) = C H R * (3)5 DIJ C K1 * (R +1 ) = C FI R * 
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< 4 ) J D U C K1 4 <R + 2 ) = " 1 'G 0 T 0 3 6 0 

34 0 DUCK1 4 < R ) == CHR4 ( 1.63 ) 5 DUCK1 4 ( R +1 ) = CH 

R4 < 164 ) : DUCK 1 4 < R + 2 ) =" " l GOTO 360 

3 50 DUO K14(R)=CH R 4(131)J D UCK1 $(R +1)=CH 

R 4 (132)JDUCK14(R+2)=" " 

360 NEXT R 

37 0 FOR R=1 TO 24 STEP 3 5 C=INT (RND <0)>K 
4)+1S ON C GOTO 380,390,400,410 
380 DUCK24(R,R+2 > = "♦$ "{GOTO 420 

3 9 0 D U C K 2 4 (R ) ~ C H R $ ( 3 ) J D U C K 2 $ ( R +1 ) ~ C H R 4 
<4>lDUCK24(R+2)=" "JGOTO 420 

4 0 0 D U C K 2 4(R)=C U R4(16 3> J DUC K 2 4(R+1)~ CH 
R4(164)JDUCK24(R+2)=" "JGOTO 420 

41 0 D U C K 2 4 (R ) ~ C H R 4 (131 ) J DIJ C K 2 4 ( R +1 ) = C H 
R 4 (13 2)J DUCK24(R + 2) = " " 

420 NEXT R 

43 0 ? =0=6 JCHR4 (125 ) J POSITION 1,0 J? #6JD 
UCK4 (1,18): IF X : - 0 THEN 460 
440 POSITION 1,2.:? *6 J DUCK 14(2,19) J IF 
X = 1 THEN 460 

45 0 POSITION 1,4 J? *6 J DUCK2.4 (3,20) 

46 0 A~ 196 J AP= 121 J POKE 7 0 4,6 0 J A4 ( A ) -ARE 
OH4:POKE 53248,AP 5 POSITION 10,11J ? *6 5 
SCJ JTE==0; POSITION 0,11J? #6JAL-1 

470 POKE 77,0JIF STRIG(0)=0 THEN TR=1J 
GOTO 510 

480 IF STICK(0)=7 THEN AP=AP+8JIF AP>2 
01 THEN AP=201 

490 IF STICK(0)=11 THEN AP=AP-8JIF AP< 
49 THEN AP = 49 
500 POKE 53248,AP 

51 0 T E ti P 4 : =D U C K 4(1,1) J D IJ C K 4 (1,2 3 ) « D U C l< 4 
(2,24)5 DUCK*(24)-TEMP4:POSITION 1,0 J? 
*6JDUCK*(1,18) 

5 2 0 T IE M P 4 = D U C K14 (1,1) J D U C K14 (1,2 3 ) = D IJ C 
K14 (2,2 4 ) 5 D U C K14 (24) = T E M P 4 JIF X < > 0 T H IE 
N POSITION 1,2:? #6}DUCK14(2,19) 

530 TEMP4-DUCK24(1,1)5DUCK24(1,23)=DUC 
K24<2,24)5DUCK24(24)=TEMP45IF X=2 THEN 
POSITION 1,4 5? 16 J DUCK 2.4 (3,20) 

540 IF NOT TR THEN 470 

550 POKE 53278,05A4(A-1,A+l8)=ARR0W4JA 
- A - 4 51F A < 2 0 T H E N AL~AL.-1: G O S U B 9 0 0 51F 
AL.C1 THEN 800 
555 IF A<20 THEN 630 
560 IF PEEK(53252)=0 THEN 510 
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57 0 GOSUB 9:105 POKE 532T8,0 5 R= 0 5 IF AM7 
THEN R=25IF A>79 THEN 
580 C~ < AP-49) /Q 5 LOCATE C , R , G 5 POSITION 
C-1,R* ? #6 5" "5 REM THREE SPACES WIPE 

S OUT THE DUCK 

590 SC = SC+10 J IF Q < 5 THEN SC=SC+T 0 5REM 
ADD TEN POINTS FOR A HIT - 5 0 FOR A BL¬ 
UE DUCK 

5 9 5 IF SC>10 00 0 THE N 8 0 0 5 R EM END GAME 
AT TEN THOUSAND POINTS 

600 IF R=0 THEN DUCK*(C-l,C+1>=" 

6 J. 0 IF R = 2 THEN DUCK1T<C,C+2>=" 

620 IF R = T THEN DUCK2T(C + l,C+3)=" 

630 ATCL)=CHRT(0 ) 5 AT (255 ) = CHRT ( 0 ) 5 A* (2 
)=AT 

6T0 ON X+l GOTO 650,670,700 
650 IF DUCK TO" 

" THEN T6 0 5 REM 2T SPACES 
660 GOTO 730 
670 IF DUCKTO" 

" THEN 460 5 REM 2*, SPACES 
68 0 IF DIJCK1 TO" 

" THE N 46 0 5 R EM 24 SPAC E S 
690 GOTO 730 
70 0 IF DUCK TO" 

'' T H E N 4 6 0 5 R E M 24 S P A C E S 
710 IF DUCK 1 TO" 

1 ’ TH EN 46 0 5 RE M 2! SPA CES 

72 0 IF DUCK2TO" 

" THEN 160 5 REM 21 SPACES 

73 0 FOR R = :l TO 21 STEP 3 5 CONK RND ( 0 ) * 
4> + :L50N C GOTO 74 0,7 5 0,760,770 

7 4 0 DUCKT < R , R + 2 ) == "#T "5 GOTO 780 

7 5 0 D l.) C K $ ( R ) - C H R T ( 3 ) 5 D U C K $ ( R :L ) « C H R $ < I 
)5 DUCK*(R+2)”" "5 GOTO 780 

76 0 DUCK$ ( R ) = CLIRT (163) 5 DUCK$ ( R +1 ) = CHR$ 
(164) 5DUCKT(R *-2)==" "5GOTO 780 

77 0 DUCKT ( R ) - C H R $ ( 13 :L) 5 D U C K $ (R +1 ) == C H R T 
(132)5 DUCKT(R+2) = " " 

78 0 NEXT R5GOTO 310 

800 POKE 53248,05 POSITION 5,05? #6?"GA 
ME ODER " 5 AT (1 ) -CHRT ( 0 ) 5 AT ( 255 ) ;= CHRT < 0 ) 
5 AT (2 KAT 

810 IF PEEK (53279) 06 THEN 810 
820 GOTO 140 

9 0 0 SOUND 0,10,6,105 FOR XX”1 TO 5 0 5 NEX 
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T XXtSOUND 0,0,0,0{RETURN 

9:1.0 SOUND 0 , 1 0,4 > 1 0 { FOR XX=:L TO 10JNEX 

T XX JSOUND 0,0,0,0{RETURN 


the Start key. Figure 5-1 is the flowchart, and Fig. 5-2 the character 
set, for this program. See Listing 5-1 for the code. 

Line 50 sets aside the string space needed in this program. The 
first string in this line is A$. For this program to work correctly, 
this string must be listed first in the line. We will change the length 
of this string and use it as a player/missile, so we have to know 
where it is in the variable table. The next three strings contain the 
ducks that move on the screen. ARROW$ contains the characters 
that make up the dart, and TEMP$ is used to hold the first character 
of the string when the ducks are moved on the screen. 

Line 60 looks at location 106 to find out how much memory 
is in the computer. This program will use part of the memory in 
the computer for the character set and for player/missile graphics. 
The beginning of the new character set is placed in location 204. 
The beginning of the old character set is placed in location 206. 
The assembly language subroutine in line 90 uses these two loca¬ 
tions to move the character set from ROM into RAM. 

Line 70 reads the assembly language subroutine from line 80 
and places it in memory locations 1536-1555. Line 80 is the deci¬ 
mal code for the routine that moves the character set from ROM 
into RAM. 

Line 90 changes the screen to a graphics 18—graphics 2 with 
no text window. The USR command tells the computer to use the 
subroutine beginning at location 1536. The computer returns to this 
line after executing the assembly language subroutine. The value 
of A is POKEd into location 756. The A variable contains the begin¬ 
ning location of the new character set. If the wrong value is POKEd 
into this location, the screen will have strange characters on it. 

The CHARSET variable is set to the first byte of the character 
set, plus 24. We add 24 to the first byte because the first character 
in the character set is a space. The second is the exclamation point, 
and the third the quotation marks. We do not want to change the 
character for the quotation marks, so we begin with the third 
character or 24th byte—the pound sign. The FOR-NEXT loop 
begins with the 24th byte of the character set. The character codes 
in line 130 are read and placed into the character set. Two 
characters, the pound sign and the dollar sign, are changed. The 
pound sign is the front of the duck and the dollar sign is the back. 
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Line 95 reads the next 20 values and places them into 
ARROW$. This time the values are not placed in the string, but 
the character the value represents is. This string will be moved 
into the area set aside for player/graphics. Each byte is one code. 
The code is very conveniently stored within this string as a series 
of characters. 

Line 100 POKEs location 54279 with the value of A. This tells 
the computer where the player/missile area is. By POKEing 559 
with 62, we tell the computer that the players are single-resolution. 
When location 53277 is POKEd with 3, the player/missile graphics 
are enabled. The VT variable contains the beginning address of 
the variable value table. This table keeps track of all the variables 
used in a program. The variables are stored in this table in the or¬ 
der they are entered, which is why A$ must be the first variable 
in line 50, and no other variables are placed on any program line 
before line 50. The STTB variable contains the beginning address 
of the string array area. This area stores the information in the 
strings. Each element of a string takes up one memory location in 
this area. 

Line 110 determines the offset for A$. We want A$ to be the 
first player in the player/missile graphics area. The computer 
designated one byte for A$, the first byte of the string array area. 
To change the location of this string in memory, we have to figure 
out where we want the string to begin. The first player in the 
player/missile graphics area begins IK after the address POKEd 
into location 54279. To arrive at the correct offset, we multiply the 
value of A by 256 and add 1024 (IK). This is where we want the 
first byte of A$ to be. 

If we placed this value in the offset location in the variable value 
table, we would not tell the computer where A$ should begin, 
because the computer adds the offset value to the value of loca¬ 
tions 140 and 141. We subtract the value of STTB, which contains 
the value of locations 140 and 141. When the computer adds this 
value to the offset value in the variable value table, it places the 
information in A$ in the player/missile graphics area. 

The value of STROFF is larger than 255 and cannot be POKEd 
into the variable value table as one number. To divide it into two 
numbers the computer can understand, take the integer of STROFF 
and store it in variable ST3. This number is referred to as the high- 
order byte. By multiplying this number by 256 and subtracting the 
product from the offset value, we arrive at the low-order byte. These 
two values are POKEd into the third and fourth locations of variable 
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value table. The value 255 is POKEd into the fifth location, because 
we want the computer to think that string is 255 bytes long. 

Line 120 POKEs a 0 into the sixth location of the variable value 
table. This is the high-order byte of the length of A$. The seventh 
and eighth locations are POKEd with a 255 and 0. The number 
of bytes set aside for A$ is 255. By setting the first and last elements 
of A$ to the character 0, then setting the second element to the 
contents of A$, we clear the entire string. If A$ were printed, it 
would be a string of hearts, but the ATASCII value of that character 
is 0. This value is what will be displayed as a player on the screen. 

Line 130 contains the codes to create the duck and the dart. 

Lines 140-160 print the title of the program and four ducks, 
each in a different color, on the screen. 

Lines 170-220 place a string of ducks in the first string, DUCK$. 
A random number from 1 to 4 is chosen. This number determines 
the color of the duck. The computer is sent to the correct line. The 
two parts of the duck, followed by one space, are placed into 
DUCK$. The loop continues until the entire string is filled. Variable 
X is set to 0. It is used in the next routine as the row number. 

Lines 230-290 set the level of play. One row of ducks is printed 
on the screen. The first 40 characters of A$ is printed on the next 
line. Since A$ is hearts, the computer will print two rows of spaces 
on the screen. This will erase any ducks from the screen should 
the Select key be pressed three or more times. The computer loops 
at line 240 until a Start, Option, or Select key is pressed. If the 
Start key is pressed, the computer will go to line 310 and begin 
the game. If the Select key is not pressed, the computer will loop 
back to line 240. When the Select is pressed variable X is in¬ 
cremented by 1. Should the value of X exceed 2, it will be reset 
to 0. A short timing loop gives the user a chance to release the key, 
then the computer goes to line 230 to print one more row of ducks 
on the screen. 

Lines 310-420 place ducks in the other two DUCK strings. The 
color of the ducks in both these strings are chosen randomly. The 
strings are filled even if level one is chosen, so that the computer 
will rotate the ducks in these strings and keep the ducks on the 
screen moving at a steady pace. 

Line 430 clears the screen and places the first row of ducks 
on the screen. Variable X contains the level number. If X is a 0, 
then level one was chosen and the computer is directed to line 460. 

Line 440 prints the ducks in DUCK1$ on the screen if levels 
two or three were chosen. 
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Line 450 prints the ducks in DUCK2$ on the screen if level 
three was chosen. 

Line 460 sets variable A to 196. This is the position in A$ where 
the tip of the dart begins. Variable AP is set to 121. This is the 
column for the dart. The characters in ARROWS are transferred 
to A$. Each character is the code for part of the dart. The dart is 
printed on the screen by moving the player onto the screen. Loca¬ 
tion 53248 is POKEd with the column number for the dart. The 
score, stored in variable SC, is printed on the screen; variable TR 
(trigger) is set to 0, and the number of darts left (AL) is printed 
in the lower left corner of the screen. 

Line 470 disengages the ATTRACT mode by POKEing loca¬ 
tion 77 with a zero. If the red button on the joystick is pressed, 
variable TR is set to 1 and the computer is directed to line 510. 

Line 480 checks to see if the joystick is being pushed to the 
right. If it is, variable AP is increased by 8. The value of AP is 
also checked to make sure it is under 201. If it is, it is reset to 201. 
This is the rightmost column on the screen. A higher value would 
put the dart off the screen. 

Line 490 checks to see if the joystick is being pushed to the 
left. If it is, the value of AP is decreased by 8. The value of AP 
is checked again to make sure the dart will be printed on the screen. 

Line 500 moves the dart to the new column on the screen. The 
dart moves eight columns at a time. If it moved only one column 
at a time it would take too much time to get across the screen. 

Line 510 rotates the top row ducks on the screen. The contents 
of the first element of DUCK$ is placed into TEMP$. Then all the 
elements of DUCK$ are moved up by 1. The character placed in 
DUCK$ is placed in the last element of the string. The first 18 
elements of the string are printed on the screen. 

Line 520 rotates the second row of ducks (DUCK1$) the same 
way. Even if these ducks are not printed on the screen, they are 
still rotated. 

Line 530 rotates the third row of ducks, DUCK2$. If level three 
was chosen, these ducks will be printed on the screen. Line 540 
checks the value of TR. If variable TR is not a one (NOT TR), the 
computer will be sent to line 470 to see if the trigger or joystick 
has been pressed or moved and to keep the ducks moving on the 
screen. 

Line 550 is executed when the value of TR is 0. Location 53278 
is POKEd with 0. This clears all the registers used to count hits. 
These registers contain a value when a player or missile occupies 
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the same position on the screen as another player, missile, or 
character. The characters of ARROW$ are placed into A$ at a loca¬ 
tion one less than the last. This will move the dart up on the screen. 
When the value of A is less than 20, the dart is no longer on the 
screen and the computer is sent to the sound subroutine at line y00. 
The number of darts is decreased by 1. If there are no darts left, 
the computer is sent to line 800 to end the game. 

Line 555 sends the computer to line 630 if the dart is off the 
screen. 

Line 560 checks the contents of memory location 53252. If it 
is 0, the dart has not hit a duck and the computer is sent to line 
510 to move the ducks and the dart. 

Line 570 is executed when location 53252 contains a value other 
than 0. The hit sound subroutine at line 910 is used. Then the dart 
is removed from the screen by POKEing location 53248 with 0. 
Variable R is set to 0. This variable is for the row number of the 
duck that has been hit. If the value of A is greater than 47 the duck 
cannot be in the zeroth row. The value of R is changed to 2. If the 
value of A is greater than 79, the duck must be in the third row, 
and the value of R is reset to 4. 

Line 580 calculates the column the duck is in. The 49th col¬ 
umn for the player or dart is the equivalent of the zeroth column 
for a character. There are eight player columns to every character 
column. By subtracting 49, then dividing by 8, we know which col¬ 
umn the dart is in. The LOCATE command sets the value of the 
character in the column and row that has been hit. Three spaces 
are printed at this location. The first space is printed just before 
the column that has a hit. This way, if the end of the duck was hit, 
the entire duck is erased from the screen. 

Line 590 adds ten to the score (SC). If the value of Q is less 
than 5, the duck was blue and 40 more points are added to the score. 

Line 600 checks the value of SC to see if the player has gone 
over 10,000 points. If he has, the computer is sent to line 800 to 
end the game. 

Lines 600-620 erase the duck from the string. The value of R 
indicates from which string the duck should be erased. 

Line 630 clears the A$ again. If A$ was not cleared, the dart 
would reappear near the top of the screen along with the new dart 
near the bottom. 

Lines 640-720 check to see if all the ducks have been hit. 

Line 640 uses the level number to send the computer to the 
line that checks all the strings used at that level. If there are ducks 
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left, the computer is sent to line 460 to continue the game. If all 
the ducks have been hit, the computer continues with line 730. 

Lines 730-780 place ducks into DUCK$. After the first string 
is filled, the computer is sent to line 310 where the other strings 
are filled if the game is at level two or three. 

Lines 800-820 end the game. The dart is cleared from the 
screen, the message “GAME OVER’’ is printed on the screen, and 
A$ is cleared for another game. The computer loops at line 810 
until the Start key is pressed. The new game begins at line 140. 

Lines 900-910 are the sound subroutines used in this program. 

MARBLES 

Objective of the game: To hit your opponent’s marbles. 

Directions: This is a two-player game that requires two 
joysticks. One joystick is plugged into the first joystick port, the 
other into the second joystick port. The first player’s marble is 
printed on the left side of the screen. The second player’s marble 
is printed on the right side. To move the marble, move the joystick 
up, down, left, or right. To shoot the marble over the line, press 
the fire button on the joystick. The longer the fire button is held 
down, the further the marble will go. However, if you hold the but¬ 
ton down too long, the marble will hardly move. To get the marble 
across the field takes good timing. 

The first player shoots a marble, trying to keep it on the left 
side of the field. The second player then tries to hit the opponent’s 
marble. The game continues until one player scores 10 or more 
points. Every time the opponent’s marble is hit, it is erased and 
two points are added to the score of the player who shot the mar¬ 
ble. If a player hits his own marble, one point is subtracted from 
the score. The score cannot go below 0. Figure 5-3 is the flowchart, 
Fig. 5-4 the character set, and Listing 5-2 is the code for this 
program. 

Line 50 sets aside the string area. M$ must be the first variable 
in the program. This string is used as the player represented by 
the marble. If it is not the first variable used, the routine that 
changes the string storage will not work properly. WORDS holds 
the word printed on the screen. This program uses ANTIC mode 
E. Letters and characters are drawn on the screen in this mode 
rather than printed, so the word or character to appear on the screen 
is stored in WORDS before it is placed on the screen. BLBYTES, 
GRBYTES, and ORBYTES contain the byte patterns for printing 
the words or characters in blue, green, or orange. Ml$ and M2$ 


233 



START 



Joystick 
moved 
^ ? 


Fig. 5-3. Flowchart for Marbles. (Continued through page 236.) 
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Fig. 5-4. Character set for Marbles. 


Listing 5-2. Marbles. 


10 REM MARBLES -- A YOUNG BOY'S GAME 
2 0 REM CHAPTER 5 -- SIMULATIONS 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1983 

50 DIM M$ (1) ,WORD*(12) ,BYTE*(16) ,BL.BYT 
E$(128),GRBYTE*(128),ORBYTE*(128),M1*( 
8),M2*<8),B*(8) 

6 0 SCRNPRNT=10 0 0 * GRAPHICS 24♦REM GRAPH 
ICS 8 WITH NO TEXT WINDOW 

7 0 DLIST = PEEK(56 0)+PEEK(561)*256 J POKE 
DL.IST+3 »78 5 REM CHANGE TO ANTIC E 

80 FOR X=DLIST TO DLIST+200JIF PEEK(X) 
= 15 THEN POKE X , 14 J REM CHANGE TO ANTIC 
E'. 

90 IF PEEK(X)~79 THEN POKE X,78tREM CH 
ANGE THE SECOND LIST TOO 
100 NEXT X 

110 A=PEEK( 106 )-40 5 POKE 204,AJPOKE 2 06 
,PEEK(756)JFOR X=1536 TO 1555JREAD Dtp 
oke x,u:next X 

120 DATA 104,162,4,160,0,177,205,145,2 
03,200,208,249,230,206,230,204,202,208 
,242,96 

130 Q=USR(1536)JPOKE 756,A t CHARBASE=A* 
256 + 24 J FOR X=CHARBASE TO CHARBASE+155R 
EAD U»POKE X,D J NEXT X 

140 DATA 0,60,110,118,118,110,60,0,0,6 
0,126,90,102,126,60,0 

150 FOR X= 0 TO 15 J READ BYTE* i BLBYTE*<X 
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*8+1>=BYTE$:NEXT X 

160 DATA 00000000,00000011,00001100,00 
001111,00110000,00110011,00111100,0011 
1111,11000000 

170 DATA 11000011,11001100,11001111,11 
110000,11110011,11111100,11111111 
180 FOR X=0 TO 15 *READ BYTE$:GRBYTE*(X 
*8+1)=BYTE$JNEXT X 

190 DATA 00000000,00000010,00001000,00 
001010,00100000,00100010,00101000,0010 
1010,10000000 

200 DATA 10000010,10001000,10001010,10 
100000,10100010,10101000,10101010 

210 FOR X = 0 TO 15 tREAD BYTE* 1 ORBYTE* ( X 
*8+1) =BYTE* : NEXT X 5 BYTE$ ; =" 000000 000 000 
0 000" 

220 DATA 00000000,00000001,00000100,00 
000101,00010000,00010001,00010100,0001 
0101,01000000 

280 DATA 01000001,01000100,01000101,01 
010000,01010001,01010100,01010101 
240 H=1 :WORD* = "*":R=50*,C=64JCL=2:GOSUB 
SCRNPRNT 

25 0 H=4 5 WORD*="MARBLES" »R=50tC=86tCL= : l 
* GQSUB SCRNPRNT 

260 H-i: word$^"V‘:r=60:c=20o:cl=3:gosu 
B SCRNPRNT 

270 POKE 54279,AJPOKE 559,62JPOKE 5327 
7,35 POKE 53248,0!VT=PEEK(134)+PEEK(135 
) *256«S’TTB=F'EEK (140 ) +PEEK (141) *256 
280 STR0FF=A*256+1024 -STTEi • ST3-INT ( STR 
OFF/256)«ST4~STR0FF-256*ST3tPOKE VT+2, 
ST4:P0KE OT+3,ST3 J POKE DT+4,0 
290 POKE VT+5,1J POKE VT+6,0:POKE VT+7, 
1:M*<1)~CHR*(0)t H$(255)=CHR$< 0)5 M$(2) = 

m*:b*=m$ 

300 RESTORE 140:FOR X=1 TO 8:READ OtMl 

*(X,X) : =CHR*<D) tNEXT x:for X=1 TO 8: REA 

D V : M2* (X , X ) =CHR* (O) t NEXT X 

310 POKE 704,665FOR X=1 TO 10JR=INT(RN 

D < 1) * 183 ) + 1 5 C : =INT (RND (1) * 15 0 ) *2 + 2 

320 M*(R+33,R+40 )=M1* 5Y-INT<RND(1)*2>J 

IF Y THEN M*(R+33,R + 40)= M2* 

330 CL=2:W0RD$="*"JPOKE 704,PEEK(709){ 
IF V THEN WORD*="*"JCL=3JPOKE 704,PEEK 
(708) 
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3-10 POKE 53218, C/2+48JGGSUE: 3000JGOSUB 
SCRNPRNT J POKE 532-18,0 J h$ (R + 33, R+10 ) =B 

$:next x 

360 ? 16JCHR$<125)JCOLOR 1JPL0T 70,0JD 

RAWTO 70,191JPLOT 71,0JDRAWTO 71,191JP 

LOT 212,OJDRAWTO 212,191 

365 PLOT 213,0JDRAWTO 213,191 

370 PL1 = 0JPL2=0JH=1 JWORD$ = M or.e M JR=0 JC= 

0 JCL=2JG0SUB SCRNPRNT J WORD$="two" J R = 0 J 

C=262tCL=3JGQSUB SCRNPRNT 

380 P = l20JF’1=65JPOKE 701,PEEK(709)JPOK 

E 53218,pi:m$(p,p+7)=mi$:h=usp=o:ci = o 

:ri=o 

390 POKE 77,0:iF STRIG<0)=0 THEN 170 
10 0 IF STICK < 0) = 15 THEN 390 
110 IF STICK(0)= 11 THEN P=P-1JIF P<33 
THEN P=33 

120 IF STICK<0) =13 THEN P=P+1JIF P>217 
THEN P=2:L7 

130 IF STICK(0)=7 THEN P1=P1+1JIF Pl>7 
5 THEN PI=75 

110 IF STICK < 0)=11 THEN P1=P1-1JIF Pl< 
10 THEN Pl=10 

150 POKE 53278,01M$(P »P + 7)=M1$ J POKE 53 
218,Pi:iF PEEK(53252)=0 THEN 390 
160 Pl=Pl-2 JPOKE 53218,PI’.GOTO 390 
170 POKE 20,0 

180 IF STRIG < 0) = 0 THEN 180 

190 R = F'EEK(20)*2JIF R>150 THEN R = 150~( 

R-150) 

500 IF R<90 THEN R=90 
510 ST =STICK(0) 

520 POKE 53278,0JP1=P1+1JIF ST=13 THEN 
P-P+1JIF P>217 THEN P=217 
530 IF ST = 11 THEN P=P-1JIF F'<33 THEN P 
=33 

510 m (F',P+7)=M1*JP0KE 53218,P1:IF F‘l< 
R AND PEEK(53252)=0 THEN 520 
550 Q=F'EEK (53252 > J IF Q = 0 THEN 620 
560 IF 0=1 THEN 520 

565 IF QOl THEN F’L1=PL 1-1 JPOKE 53218, 
0 S GOTO 630 

57 0 F'L1=F'L 1 + 2 J C= (F'l-18 )*2 + 13 JR=P-33 JSF' 
= 0 

580 TRAP 586 J LOCATE C,R,Q1JIF 01 = 1 THE 

n ri=r:r=r-ugoto sso 
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581 IF R1 = 0 AND SF'=0 AND Q1 = 0 THEN R=R 
+1JG0T0 580 

585 8P=SF'+lJR=R-i:iF SP<3 THEN 580 

586 sp=o:trap 40000 

590 LOCATE C,Rl+l,Qi:iF Gl = l THEN C1=C 
:C=C-2JG0T0 590 

60 0 8P=SF' + 1 :C=C-2JIF SP<3 THEN 590 

610 c=ci: r=ri~i:gosub 30oo:word$=" ":g 

OSUE: SCRNPRNT * REM TAKE AWAY ONE MARBLE 
- THEN PRINT THE OTHER 
620 CL= : 2 WORD*="*" 5 O ( F‘l-48) *2 *, R=P-33 5 
G08UE: SCRNPRNT 

630 C=14JR=9JIF PL1<0 THEN PL1=0 
635 WORD*=STR* ( PL.1) 5 GOSUB SCRNPRNT I IF 
Pl_l>9 THEN 950 

640 M*(P,P+7)=B*:P=120JP1=175JPOKE 704 
, PEEK (708) t POKE 532-18, PI J M* (P, P+7) =M2* 

:sp=o:ci=o:ri=o 

650 POKE 77,0*. IF STRIG(0) = 0 THEN 730 
660 IF STICK< 0) = 15 THEN 650 
670 IF STICK(0)-11 THEN P=P-1JIF P<33 
THEN P=33 

680 IF STICK ( 0 ) = 13 THEN P=F' + 1JIF P>217 
THEN F'=2'17 

690 IF STICK< 0 ) =7 THEN P1=P1H*.IF Pl>2 
03 THEN P1-203 

700 IF STICK(0)—11 THEN P1=P1-1JIF Pl< 
170 THEN F' 1 = 17 0 

710 POKE 53278,0JM*<P,P+7>=M2*JPOKE 53 
2-18, Pi: IF PEEK (53252)=0 THEN 650 
720 F‘l=F'l + 2 ! POKE 53218 , PI t GOTO 650 
730 POKE 20,0 

710 IF STRIG( 0 ) = 0 THEN 710 

750 R=180-PEEK (20 ) ♦ POKE 20,0*.IF R<95 T 

HEN R-95+(95-R) 

760 IF R>160 THEN R = 160 
770 ST-STICK(0) 

78 0 Pl-F‘1-1 JIF ST = 13 THEN P=P+1JIF P>2 
17 THEN P = 2:L7 

790 IF S T = 14 THEN P=P-i:iF P<33 THEN P 
=33 

800 POKE 53278,0JM*(P,P+7)=M2*5POKE 53 
218,P1 * IF P1>R AND PEEK(53252)=0 THEN 
780 

810 0=F'EEK (53252) JIF Q = 0 THEN 880 
820 IF 0=4 THEN 780 
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825 IF Q<>2 THEN PL2=PL.2-11 POKE 532-18, 
0 1 GOTO 890 

830 PL2=PL2+21C=(P1-18)*21R=P~33 

810 TRAP 8161 LOCATE C,R,Q1JIF 01 = 1 THE 
N R1=R1R=R-11 GOTO 810 

811 IF R1 = 0 AND GP-"0 AND 01 = 0 THEN R=R 
+ 11 GOTO 810 

815 SP=SP+11R=R~11IF SP<3 THEN 810 

816 8P = 0 5 TRAP 1000 0 

850 LOCATE C,R1+1,011IF 01=1 THEN C1=C 
1C=C-21 GOTO 85 0 

860 SP=SP+11C=C-2iIF SP<3 THEN 850 
870 C=C1-21R=R1JG08UB 30005WORD*=" "SG 
OSUB SCRNPRNT 5 REM TAKE AWAY ONE MARBLE 
~ THEN PRINT THE OTHER 
88 0 CL.=3 1W0RD* = "*" 1C=<Pl-18)*21R=P~331 
GOSUB SCRNPRNT1IF PL2C0 THEN PL2=0 
890 0=2801R=9IWORD*=STR*(PL2) 

900 GOSUB SCRNPRNT1IF PL2C10 THEN M*(P 
,P + 7)=B*1 GOTO 380 

950 M* (P,P+7)=B*1? *6JCHR$<125)1WORD*= 
"Gsne Over"1R=201C=801H=31CL=11GOSUB S 
CRNPRNT 

960 WORD«="Pl3yer 1 "IWORD*(10)=STR*(P 
LI)1H=21CL=21R=5010=711GOSUB SCRNPRNT 

97 0 WORD* < 8 ) = "2 M 1 WORD* (10) =STR* ( PL.2 ) 1 C 
L = 31R=B0 10711 GOSUB SCRNPRNT 

98 0 IF PEEK (53279) 06 THEN 98 0 
990 GOTO 360 

1 0 0 0 TH=H 1 TR = R 1 l_=L.EN (WORD* ) 1 CHBASE=A*2 
56 

1010 FOR WORD=1 TO L1LASC=ASC(WORD*<WO 

RD,WORD))1IF LASC>31 AND LASC<96 THEN 

LASC=L. ASC-32 1 GOTO 1030 

1020 IF LA SC <3 2 THEN LASOLASC + 61 

1030 FOR LP=0 TO 71BYTE=PEEK(CHBASE+LA 

SC*8+LP)!FBYTE=INT(BYTE/16)1SBYTE=BYTE 

-FBYTE*161REM GET CODE FOR CHARACTER 

1010 ON CL GOTO 1050,1060,1070 

1050 BYTE*(1,8)=BLBYTE*(FBYTE*8+1,(FBY 

TE + 1)*8)1 BYTE*(9,16)=BLBYTE*< SBYTE*8+1 

,(SBYTE + 1)*8)1 GOTO 108 0 

1060 BYTE* CL,8)=GRBYTE*(FBYTE*8+1,(FBY 

TE + 1)*8)1 BYTE*(9,16)=GRBYTE*(SBYTE*8+1 

,(SBYTE+1)*8)JGOTO 1080 

1070 BYTE*(1,8)=0RBYTE*(FBYTE*8+1,(FBY 
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TEH ) *8 ) t BYTE$ (9,16) =ORBYTE$ ( SBYTE*8+1 
,(SBYTE+1)*8) 

1080 POSITION C »R * ? : I6 JBYTE$ ♦TH=TH—1 JR 

= S R+1 ♦ IF THOO THEN 108 0 

1090 TH=H *. NEXT LP: R=TR{C=C + 16 NEXT WOR 

D 

1100 RETURN 

80 0 0 SOUND 0,100,2,15 5FOR T = 1 TO 5\NEX 
T TJSOUND 0,0,0,0{RETURN 


contain the code for the two different marbles. This code is trans¬ 
ferred to the player area when the marble moves on the screen. 
B$ is used to erase the marble from the player area. 

Line 60 sets variable SCRNPRNT to 1000. This is the line 
number for the routine that prints the words and characters on the 
screen. The HEX variable contains the beginning address of an¬ 
other routine that divides a number into two values. The screen 
is set to graphics 24. This is graphics 8 with no text window. 

Line 70 finds the beginning address for the display list. This 
address is stored in locations 560 and 561. To arrive at the one 
number address multiply the number stored in location 561 by 256 
and add the number stored in location 560. The entire display list 
is set for graphics 8. We want to use ANTIC E. This mode is be¬ 
tween graphics modes 7 and 8. The first three numbers in the 
display list remain the same. The fourth number is changed to AN¬ 
TIC E. This location is also an instruction, so the value POKEd 
here is 78 rather than 14. 

Lines 80-90 change the rest of the codes in the display list to 
ANTIC E. Each location is checked to see if it contains the value 
15, the value for graphics 8. If it does, 14 is POKEd into that loca¬ 
tion. If the value of 79 (graphics 8 with an instruction), it is changed 
to 78. The loop continues until the entire display list is changed 
to ANTIC E. 

Line 110 finds out how much memory is in the computer. We 
subtract 40 from this value to set aside space for the new character 
set and the player/missile graphics. This program subtracts 40 in¬ 
stead of 16, as other programs do, because graphics 8 takes up 8K 
of memory. Every time we subtract 4 from the end of memory, 
we are really subtracting IK. By subtracting 40, we allow room 
for the screen (8K) and the character set (2K). We POKE the begin¬ 
ning address of the character set into location 204 and the begin¬ 
ning of the ROM character into location 206. These two locations 
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are used in the assembly language subroutine that moves the 
character from ROM into RAM. The FOR-NEXT loop reads the 
code for the assembly language subroutine from line 120 and places 
it in memory locations 1536-1555. This is the assembly language 
subroutine that moves the character set from ROM into RAM. Line 
120 contains the code for the assembly language subroutine. 

Line 130 uses the USR command to tell the computer to ex¬ 
ecute the assembly language subroutine at memory location 1536. 
After the computer returns to this line, the beginning address of 
the moved character set is POKEd into location 756. The CHAR- 
BASE variable contains the address of the first byte of the third 
character in the character set. This character and the fourth 
character will be changed into marbles. 

Line 140 contains the code to change the two characters. 

Lines 150-230 set up the bit codes in strings to print the let¬ 
ters or characters in different colors. We use ANTIC E in this pro¬ 
gram. To print a letter on the screen we must turn on certain bits. 
The pattern these bits follow determine what color appears on the 
screen. In line 150, we fill the screen with the pattern for blue pixels. 
Whenever a pair of bits in a byte are set to 1, the color on the screen 
is blue. This must be an even pair—bits 1 and 2, 3 and 4, 5 and 
6, 7 and 8. If bits 2 and 3 are set, one pixel would be orange and 
the other green. 

Line 180 uses the information in lines 190 and 200 to place the 
pattern for green pixels into GRBYTE$. The pattern for orange 
pixels are placed into ORBYTE$. 

Lines 240-260 place the title on the screen. Variable H deter¬ 
mines the height of the letter or character. Since the subroutine 
places the character information on the screen byte by byte, the 
letters can be 8 pixels high or 20. The character or message printed 
on the screen is stored in WORD$. Variable R is set to the row 
on which the message will be printed, and variable C is set to the 
column. Variable CL determines the routine that will be used to 
print the message in the correct color. The value of SCRNPRNT 
is 1000. Lines 240-260 use the subroutine called SCRNPRNT to 
print the message on the screen. 

Line 270 POKEs the value of A into location 54279. This tells 
the computer where the player/missile graphics begin. By POKE- 
ing location 559 with 62, we tell the computer that single-line resolu¬ 
tion is used for the player. Location 53277 is POKEd with 3 to 
enable the player/missile graphics. The variable VT holds the ad¬ 
dress of the variable value table. This table contains information 
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on all the strings and variables used in the program. The computer 
stores the variables in the order they were entered in the program. 
This is why M$ must be the first string variable in the program. 
We want its information to occupy the first block of memory in 
this table. Variable STTB holds the address of the string storage 
area. This is the area of memory where the contents of strings and 
arrays are stored. 

Line 280 calculates the offset address for M$. In the variable 
value table, a number is added to the value of the string storage 
area so the computer knows where the information for the string 
is stored. This value is called an offset. We want M$ to occupy 256 
bytes of the player/missile graphics area instead of one byte in the 
string storage area. To change the location of the string, we need 
to change the offset for the string in the variable value table. The 
first player actually starts 1024 bytes after the value given the com¬ 
puter as the player/missile graphics area. We need to add this value 
to the beginning address and subtract the value of the string stor¬ 
age area. 

The number remaining is the offset value. When the computer 
places information in the string it adds this value to the string stor¬ 
age value and arrives at the player/missile graphics area. The off¬ 
set number must be stored as a two-digit number. The high-order 
value of the number is arrived at by taking the integer of the value 
divided by 255; the low-order value is the high-order value sub¬ 
tracted from the original value. These two values are stored in the 
third and fourth locations of the variable value table. The fifth loca¬ 
tion is POKEd with a 0. This is the low-order value for the length 
of the string. 

Line 290 POKEs a one into the sixth location. Since this is the 
high-order byte, the one translates into 256 bytes. The next two 
bytes are set to 0, and 1 used to set aside 256 bytes of memory 
for this string. The entire string is cleared by setting the first and 
last elements of the string to 0, then setting the second element 
to the entire string. B$ is also cleared by setting it to M$, even 
though M$ is longer than B$. 

Line 300 uses the RESTORE command to tell the computer 
to point to the information in line 140. This is the code for the 
marbles. The information for the first marble is stored in Ml$. The 
information for the second marble is stored in M2$. This informa¬ 
tion will be moved into the player area when the marbles are printed 
on the screen. 

Line 310 sets the color of the player by POKEing location 704 
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with 66. The FOR-NEXT loop counts from 1 to 10. The computer 
prints 10 marbles on the screen. Variables R and C contain ran¬ 
dom numbers. These numbers designate the row and column where 
the marble will be printed. 

Line 320 places the first marble into M$. The row value (R) 
is offset by 33. The first 33 rows of a player do not appear on the 
screen. A random number is then chosen, which can be a 0 or a 
1. If 1 is chosen, the second marble is moved into M$. 

Line 330 sets CL to 2. The marble is green. The marble stored 
as the pound sign is used, and the value for the character at loca¬ 
tion 709 is POKEd into the player value. If variable V is 1, all these 
values change. The color variable (CL) is changed to 3. Now the 
marble is orange, the marble stored as the dollar sign is used, and 
the color of the player will be the same as the color stored at loca¬ 
tion 708. 

Line 340 moves the player onto the screen. The value of 
variable C determines the column where the marble is placed. How¬ 
ever, just as the first 33 rows of a player do not appear on the screen, 
some of the column locations also are off the screen area. To place 
the marble on the screen, the value of C is divided by 2 and the 
offset 48 is added. The computer uses the sound subroutine at line 
3000, then the printing routine at line 1000 (SCRNPRNT). 

In ANTIC E, it takes a few seconds for the character or letter 
to be drawn or printed on the screen. By placing the marble on the 
screen using the player, the marble appears instantly. The print¬ 
ing routine draws the same marble on the screen behind the player. 
When the player is moved off the screen, the character marble is 
left in its place. The area the marble occupied in M$ is erased with 
B$. The loop continues until 10 marbles are placed on the screen. 

Line 360 clears the screen. Using color 1, two lines are drawn 
on the screen. These lines define the playing field. 

Line 370 sets variables PL1 and PL2 to 0. These variables are 
used to keep the score of both players. Variable H is set to 1. The 
next words printed on the screen are eight pixels high. The word 
“one” in lowercase is placed into WORD$. Normally, only upper¬ 
case or lowercase letters can be printed on the screen, but when 
ANTIC E is used, any letter or character can be printed as long 
as the character pattern can be sent to the subroutine. The word 
“one” is printed in orange beginning at row 0, column 0. The word 
“two” is printed in green in the same row but at the 262nd col¬ 
umn. The computer was set to graphics 8 at the beginning of the 
program, so it counts every pixel in the row as a column. 
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Line 380 sets variable P to 120 and variable PI to 65. This is 
the row and column where the player will place the marble on the 
screen. It is the first player’s turn. Variables SP, Cl, and R1 are 
cleared. 

Line 390 disables the ATTRACT mode. Now the screen does 
not change colors while you are playing the game. If the trigger 
on the joystick is pressed, the computer goes to line 470 to move 
the marble. 

Line 400 loops back to line 390 if the joystick has not been 
moved. 

Line 410 decreases the value of P if the stick is moved to the 
up position. If the value of P is less than 33, it is reset to 33. The 
marble would not appear on the screen if the value were less. 

Line 420 increases the value of P if the joystick is moved down. 
Again, the value of P is checked to make sure the marble doesn’t 
disappear off the bottom of the screen. 

Line 430 moves the marble to the right if the joystick is moved 
to the right. The new value of PI is compared to 75. This is the 
last position at which the marble can be placed. 

Line 440 moves the marble to the left if the joystick is moved 
to the left. If the value of PI is less than 40, the marble would be 
off the screen, so variable PI is reset to 40. 

Line 450 clears the hit register at location 53278. The character 
Ml$ is placed in M$ and the marble is moved to the new location 
by POKEing 53248 with the value of PI. Even though only the value 
of either P or PI could be changed, this line resets the marble for 
both values. The computer checks location 53252. If it is 0, the 
marble has not hit anything on the screen and the computer is sent 
to line 390. 

Line 460 subtracts 2 from the value of PI and moves the mar¬ 
ble two columns to the left if a character was hit. 

Line 470 begins the routine to move the marble. Location 20 
is the clock. This location is cleared. 

Line 480 loops until the trigger button is released. 

Line 490 takes the value of location 20 and multiplies it by 2. 
The value in this location will indicate how long the trigger button 
was pressed. This value will determine how far the marble travels 
across the field. The longer the button is pressed the greater the 
distance the marble travels. If the button is held too long, the 
distance will begin to shorten. 

Line 500 checks the value of R. The shortest distance the mar¬ 
ble can travel is to column 90. 
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Line 510 takes the value of the stick. The direction of the mar¬ 
ble can also be controlled with the joystick. If the joystick is pushed 
up or down when the trigger button is released, the marble travels 
at an angle in the direction the joystick was pushed. 

Line 520 clears the hit register. Variable PL is increased by 
1. This moves the marble one column to the right. Variable ST is 
checked to see if it is 13. If it is, the joystick was pushed down. 
Variable P is increased by 1, but it cannot exceed 217. 

Line 530—if the variable ST is 14 the joystick was pushed up 
and variable P is decreased by one. It cannot be less than 33. 

Line 540 places the marble in Ml$ in the correct position in 
M$. The new column is POKEd into location 53248. The computer 
then checks to see if the column value is less than the value of R 
and if no other marble has been hit. If both conditions are true, 
the computer goes to line 520 and moves the marble again. This 
routine continues until the marble is in the column set by R or it 
hits another marble. 

Line 550 places the value of location 53252 into variable Q. If 
Q is a zero, nothing has been hit and the computer is sent to line 620. 

Line 560 checks the value of Q for 4. If it is, then the marble 
crossed the field line, and the computer is sent to line 520 to con¬ 
tinue across the field. 

Line 565 subtracts 1 from the player’s score if the value of Q 
is not 1. If the player hit the opponent’s marble the value of Q is 
1. If the player hit his own marble, he loses a point, the marble 
is removed from the screen and the computer is sent to line 630 
where the new score is printed on the screen. 

Line 570 adds 2 to the player’s score when the opponent’s mar¬ 
ble is hit. The approximate column and row of the opponent’s mar¬ 
ble is calculated and stored in variables C and R. 

Line 580 uses the LOCATE command to see what is at that 
position. If the value of the pixel at that location is 1, it is the oppo¬ 
nent’s marble. The value of R is decreased by 1, and the LOCATE 
command is tried again. This line loops until the value of Q1 is not 1. 

Line 581 checks the three variables Rl, SP, and Ql. If all three 
are 0, the value of R is increased. 

Line 585 adds 1 to the value of SP. This variable counts how 
many times this line was executed. The value of R is decreased 
by 1 again. The actual height of the characters is 16 pixels high. 
The program was originally set to graphics 8, which uses one row 
of pixels for every byte. We changed the mode to ANTIC E, which 
uses two rows of pixels for every byte placed on the screen. When 
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we use the LOCATE command, the computer thinks it is in graphics 
8, so it looks at a location only one bit wide by one pixel high. We 
need to be three rows above the last row that was a one, because 
the top of the marble has no corners. 

Line 586 resets variable SP to 0 and disables the TRAP. 

Line 590 uses the same principle to find the column in which 
the opponent’s marble begins. The LOCATE command gets the 
value of the pixel indicated by the row and column variables. If 
the value is 1, the value of variable C is decreased by 2. Each col¬ 
umn in ANTIC E is two pixels wide; in graphics 8, it is only one 
pixel wide. The computer thinks it is in graphics 8, so we decrease 
the column variable by 2 to be in the next column. 

Line 600 increases variable SP by 1 and decreases the column 
variable by 2. The computer is sent to line 590 until variable SP 
is 3. This places the column variable in the correct position to erase 
the opponent’s marble. 

Line 610 sets the variables for the row and column. The sound 
routine is called, then WORD$ is set to a space. The computer uses 
the subroutine at line 1000 to print the space on the screen. This 
erases the opponent’s marble. 

Line 620 sets the color variable to 2 and places the player’s 
marble character into WORD$. The row and column position of 
the player’s marble is calculated and the computer uses the 
subroutine at line 1000 to print the marble on the screen. This mar¬ 
ble is printed in the same color as the player marble, and is printed 
behind the player marble. When the player is moved off the screen, 
the character remains. 

Line 630 sets the row and column again so the computer can 
print the new score on the screen. The player’s score is checked 
to see if it is less than 0. If so, the score is reset to 0. 

Line 635 changes the contents of variable PL1 into a string and 
places it in WORD$. The computer uses the subroutine at line 1000 
to print the score on the screen, then checks to see if the score is 
greater than 9. If it is, the player has won and the computer is sent 
to line 950 to end the game. 

Line 640 erases the marble character from the player. The new 
values for the second marble are set, the color of the player is 
changed to the color of the second player’s character, and the player 
with the marble is placed on the screen by POKEing the value of 
PI into location 53248 and placing M2$ in M$. The variables used 
to locate the hit marble are cleared. It is now the second player’s 
turn. 
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Line 650 disables the ATTRACT mode so the screen will not 
change colors. Then the computer checks to see if the fire button 
has been pressed. This game is set up for one joystick; if you want 
to make this a two-player, two-joystick game simply change the 
commands in the next few lines to STRIG(l) and STICK(l). Then 
the computer will check the second joystick port for the second 
player. 

Line 660 checks to see if the joystick has been moved. If it has 
not, the computer loops back to line 650. These two lines repeat 
themselves until the fire button has been pressed or the joystick 
is moved. 

Line 670 decreases the value of P by 1 when the joystick is 
moved up. If the value of P is less than 33, it is reset to 33. A value 
less than 33 would place a marble off the top of the screen. 

Line 680 checks to see if the joystick has been moved down. 
If it has, the value of P is increased by 1. This time the value is 
checked to see if it is greater than 217. The value of P cannot ex¬ 
ceed 217 or the marble will not be visible on the bottom of the 
screen. 

Line 690 checks to see if the joystick has been moved to the 
right. If it has, the value of PI is increased by 1. A value greater 
than 203 will place the marble off the right edge of the screen. 

Line 700 decreases the value of PI by 1 when the joystick is 
moved to the left. The value of PI cannot be less than 170 or the 
marble will cross the line on the field. 

Line 710 clears the hit register by POKEing location 53278 with 

O. The marble is placed into M$ at the location indicated by variable 

P, and moved on the screen by POKEing its location into 53248. 
The computer then looks at location 53252. If it is 0, the marble 
has not hit anything on the field and the computer goes back to 
line 650 to wait for another move by the joystick. 

Line 720 adds two to variable PI and POKEs this new value 
into location 53248. This moves the marble back from the character 
that it hit. 

Line 730 clears location 20. This is a clock. This location will 
be used later to see how long the fire button was pressed. 

Line 740 checks to see if the fire button is depressed. The com¬ 
puter loops at this line until the button is released. 

Line 750 calculates the new position of the marble based on 
the length of time the fire button was pressed. The longer the but¬ 
ton is held down, the further the marble will roll, up to a point. 
If the button is held too long, the distance decreases. The column 
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value cannot be less than 95. 

Line 760 checks to see if the column value is larger than 160. 
If it is, it is reset to 160 so the marble rolls into the field. 

Line 770 looks at the joystick to see if it has been moved. The 
value of the joystick port is placed into variable ST. If the joystick 
is moved up or down when the fire button is being pressed, the 
marble travels on a diagonal. 

Line 780 decreases variable PI. This is the column to which 
the marble will be moved. If the joystick has been moved down, 
variable P is increased by 1, but its value cannot exceed 217. 

Line 790 checks to see if the joystick has been moved up. If 
it has, variable P is decreased by 1, but cannot be less than 33. 

Line 800 clears the hit register. The character for the second 
marble is placed in M$ at the position indicated by variable P. The 
column position is POKEd into location 53248. If column value P 
is greater than the column the marble should be moved into, and 
the marble has not hit another marble (location 53252 is 0), the com¬ 
puter is sent to line 780 to move the marble again. This loop con¬ 
tinues until the marble is in the column whose value is the same 
as the value of variable R, or the marble hits an opponent’s marble. 

Line 810 places the value of location 53252 in variable Q. If 
the value is 0, the marble did not hit another marble and the com¬ 
puter is sent to line 880. 

Line 820 checks to see if the value of Q is 4. If so, the marble 
crossed the field line and the computer goes to line 780 to continue 
the loop. 

Line 825 checks to see if Q is 2. If it is not, the player’s marble 
hit his own marble. One point is subtracted from the score, the mar¬ 
ble is removed from the screen, and the computer is sent to line 890. 

Line 830 adds 2 to score variable PL2 because the player’s mar¬ 
ble hit the opponent’s marble. The row and column of the oppo¬ 
nent’s marble is calculated. These two values are used to find the 
opponent’s marble. 

Line 840 sets the TRAP should an error occur. The computer 
then checks the value of the pixel at the location set by variables 
C and R. If the value of Q1 is 1, the pixel contains a color; the value 
for the row is decreased by 1 and the line is repeated. The com¬ 
puter will loop at this line until variable Q1 does not contain 1, which 
means the opponent’s marble is not at that position. 

Line 841 checks to see if all the variables contain 0. If they 
do, the row variable is increased by 1 and line 840 is repeated. 

Line 845 adds 1 to variable SP. This variable counts how many 
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rows contain a value other than one. Variable R is decreased by 
1, and the value of SP is compared to 3. If it is less, the computer 
goes back to line 840. Because of the shape of the marble character, 
we need to begin the character three rows before the first pixel 
that contains a 1. 

Line 846 resets variable SP to 0 so it is ready for the next 
counting routine. The trap is removed and the program continues. 

Line 850 is similar to the last routine. This time we are look¬ 
ing for the column the marble begins in. If variable Q1 contains 
a 1, the pixel is used for the marble character. Variable C is 
decreased by 2 because two bits of the byte are used to color the 
marble in this mode. The line repeats until the value of Q1 is not 1. 

Line 860 increments variable SP, decreases variable C by 2 and 
checks to see if variable SP is less than 3. If it is not, the computer 
goes back to line 840 and repeats this routine until the column 
variable is six positions before the last column used for the marble. 

Line 870 subtracts 2 from variable Cl, sets the row to variable 
Rl, and uses the subroutine at line 3000 to make a sound. The space 
is placed into WORD$, and the subroutine beginning at line 1000 
prints the space on the screen. This erases the opponent’s marble 
from the screen. 

Line 880 sets the color routine value to 3, places the marble 
for this player in WORDS, calculates the row and column of the 
marble, and uses the subroutine at line 1000 to print the marble 
on the screen. This marble is printed in the same position as the 
player marble already on the screen. Now when the player is 
removed, the marble remains in position. The value of PL2 is 
checked to see if it is less than 0. If it is, it is reset to 0, since the 
score for any player cannot be less than that. 

Line 890 sets the row and column to place this player’s score 
in the correct position on the screen. Variable PL2 is changed to 
a string and placed in WORD$. 

Line 900 uses the subroutine at line 1000 to print the new score 
on the screen. The score is checked again to see if it is less than 
10. If it is, this player’s marble is erased from the player area and 
the computer is sent to line 380 for the first player’s turn. 

Line 950 is the end of the game routine. The marble is erased 
from the player area and the screen, the screen is cleared, and the 
phrase “GAME OVER” is placed in WORD$. The variables for 
the row, column, height of the letters, and color routine are set and 
the computer uses the subroutine at line 1000 to print the message 
on the screen. 
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Line 960 places PLAYER 1 in WORD$, then converts this 
player’s score to a string and places it in the string variable. Again, 
the row, column, letter height and color routine are set and the com¬ 
puter uses the subroutine at line 1000 to print this information on 
the screen. 

Line 970 changes the player number in the screen from 1 to 
2, and places the second player’s score in the string. The color 
routine, height, and row variables are set and the subroutine at line 
1000 prints this information on the screen. 

Lines 980-990 loop until the Start key is pressed. When this 
key is pressed, the computer goes to line 360 and begins a new 
game. 

Line 1000 is the subroutine that prints the messages on the 
screen. Because we are using ANTIC E in this program, the 
characters, letters, and numbers cannot be printed on the screen 
using the conventional PRINT command. Each character must be 
taken byte-by-byte and changed into two values. These new values 
represent the code that will be printed on the screen so the character 
will appear correctly on the screen. The value of variable H is 
transferred into variable TH. This value determines the height of 
the character. The value of variable R is transferred into temporary 
variable TR. This is the row on which the character is printed. 
Variable L contains the length of the string and CHBASE is the 
beginning of the new character set in RAM. 

Line 1010 begins the FOR-NEXT loop that takes each letter 
of the message individually and recodes it for this mode. The 
AT ASCII value of the letter is placed in variable LASC. If the value 
of this letter is greater than 31 and less than 96, the variable must 
be adjusted by subtracting 32 from itself. The characters in the 
character set are not in AT ASCII order; therefore this adjustment 
must be made. If it is not, the message appearing on the screen 
will differ from the message in WORD$. If this adjustment is made, 
the computer is directed to line 1030. 

Line 1020 checks to see if the ATASCII value of this character 
is less than 32. If it is, this is a graphics character and 64 is added 
to its value. The graphic characters are located after the upper¬ 
case letters and before the lowercase letters in the character set. 

Line 1030 begins another FOR-NEXT loop. This routine takes 
each byte of the character, one byte at a time, and converts it into 
two bytes. The character is found by adding the value of LASC 
(multiplied by 8) to the beginning of the character set, then adding 
the value of LP. Variable LP determines which byte of the character 
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will be converted. The first four bits of the byte are calculated by 
dividing the value of the byte by 16. The second four bits are ar¬ 
rived at by subtracting the value of the first byte, multiplied by 
16, from the value of the byte. Now the correct code for each nyb¬ 
ble (four bits) can be printed on the screen. 

Line 1040 uses the ON-GOTO command to send the computer 
to the correct color code line. The value of CL determines which 
color codes are used. 

Line 1050 is used when the value of CL is 1. The character 
is printed in blue on the screen. The computer takes the value of 
the first four bits (stored in FBYTE), multiplies it by 8, and adds 
1. This is the position in BLBYTE for the correct code for this value. 
The last element of this code is found eight positions later. The 
value of FBYTE is increased by 1, then multiplied by 8. This code 
is stored in the first eight elements of BYTE$. The next four bits 
are converted in the same manner. This code is stored in the next 
eight elements of BYTE$. 

The computer is sent to line 1080 to print the code on the 
screen. The values of FBYTE or SBYTE can be any value from 
0 to 15. One must be added to the value after it is multiplied by 
8 to find the correct position in the string because the string begins 
with the first position. If the value of FBYTE is 0, the computer 
would try to begin with the zeroth element and an error would re¬ 
sult. By adding 1, the computer begins with the correct element 
for the code. The code placed in BYTE$ is taken from the string 
set up in the beginning of the program. BLBYTE$ contains the 
correct two-bit codes to place blue characters on the screen. 

Line 1060 is the same as line 1050 with the exception of the 
string the codes are taken from. This line is used when the value 
of CL is 2 and green characters are needed. The codes are removed 
from GRBYTE$. 

Line 1070 take the codes from ORBYTE$ and places them in 
BYTE$. This line is used when the value of CL is 3. The characters 
printed on the screen are orange. 

Line 1080 uses the values of C and R to print the byte on the 
screen. This is only one row of the characters. Variable TH is 
decreased by 1 and the row variable is increased by 1. If variable 
TH is not 0, the line repeats and the byte is printed again on the 
screen, this time one row below the last byte. Variable TH deter¬ 
mines the height of the character, so the message can be eight rows 
high with a value of TH, or cover the entire screen. 

Line 1090 resets variable TH. The loop continues until all eight 
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bytes that make up this character are printed on the screen. After 
this character is on the screen, variable R is reset and the column 
variable is increased by 16. This moves the next letter over the 
correct distance on the screen. A value of less than 16 would place 
the characters on top of each other, and a value greater than 16 
would spread the letters too far apart on the screen. The second 
loop continues until the entire message has been printed on the 
screen. 

Line 1100 returns the computer to the line that called this 
routine. 

Line 3000 is the sound subroutine, used whenever a marble 
hits another marble. 

JACKS 

Objective of the game: To collect a certain number jacks 
before the ball hits the ground. 

Directions: This game is written for one to four players. 
There are four levels of play. One joystick is needed for this game. 

The game begins by asking for the number of players and the 
level of play. At level one, the ball travels very slowly on the screen. 
At each level the ball increases in speed. At level four you need 
exceptional hand-eye coordination. 

The screen clears, the player whose turn it is appears on the 
screen. The level the player is at is placed in the upper right cor¬ 
ner. This is the number of jacks that must be collected before the 
ball hits the ground. Near the ground on the right side of the screen 
is a number. This number changes as more jacks are collected. This 
lets the player keep track of how many jacks are in the cup. At 
higher levels it is difficult to remember how many jacks have 
already been picked up. A blue cup is on the left side of the screen 
near the ground. Ten jacks are scattered on the purple ground. 

Push forward on the joystick. The length of time the joystick 
is pushed determines how high the ball travels on the screen. If 
the joystick is pressed too long the ball will not travel very high. 
Once the ball begins to travel up the screen, the joystick can be 
moved in any of the four directions. Press the fire button to turn 
the cup over. A jack cannot be picked up by the cup unless the 
wider part of the cup is on the bottom. Move the cup over a jack. 
The number on the right side of the screen changes to one. If you 
are at level one, press the fire button again and position the cup 
under the ball. The cup must be in the proper position to catch the 
falling ball. If the cup catches the ball, the cup is moved to the start- 
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ing position and you play again. The game continues until the ball 
is dropped or all 10 jacks have been picked up. If the ball is 
dropped, the turn ends and it is the next player’s turn. If all 10 jacks 
have been picked up, another group of 10 jacks are scattered on 
the ground, the number in the upper right corner of the screen 
changes to 2 and the game continues. The game ends when one 
player collects all 10 jacks in one turn. Figure 5-5 is the flowchart, 
Fig. 5-6 is the character set, and Listing 5-3 is the code for this 
program. 

Line 50 sets aside the string space needed for this program. 
B$ must be the first variable used. It will be changed into a player 
and used for the ball. TEMP$ holds the code for the ball and JK 
is a numeric array used to hold the scores of the players. 

Line 60 finds out how much memory is available by PEEKing 
at location 106. The program moves the character set from ROM 
into RAM and uses some of the memory for player/missile graphics. 
The value of A contains the starting address of the character set 
and the player/missile graphics area. This value is POKEd into loca¬ 
tion 204. The starting address of the ROM character set is stored 
in location 206. These two addresses are used by the assembly 
language subroutine that moves the character set from ROM into 
RAM. 

Line 70 reads the assembly language subroutine from line 80 
and places it into RAM. This begins with location 1536 and ends 
with location 1555. Line 80 is the decimal code for the routine. 

Line 90 changes the screen to graphics mode 17. This is 
graphics 1 with no text window. The USR command tells the com¬ 
puter to use the assembly language subroutine that begins at loca¬ 
tion 1536. When the computer completes the subroutine, it POKEs 
the value of A into location 756. This tells the computer to use the 
character set that begins at this location. If the value of A is incor¬ 
rect, the screen contains garbage after the command is executed. 
Variable CHARSET contains the address of the fourth character 
in the character set. Variable A contains the high-order address 
of the character set. To get the decimal address, the value of A 
must be multiplied by 256. The code fourth character begins with 
the 32nd byte of the character set. The FOR-NEXT loop reads the 
code for the new characters and places it in the character set. These 
characters are the two different jacks and the cup in the upright 
and inverted positions. 

Line 100 POKEs the value of A into location 54279. This tells 
the computer where the player/missile graphics begin. Since the 
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Fig. 5-5. Flowchart for Jacks. (Continued through page 258.) 
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Fig. 5-6. Character set for Jacks. 


Listing 5-3. Jacks. 


10 REM JACKS - A YOUNG GIRL'S GAME 
20 REM CHAPTER 5 - SIMULATIONS 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1983 
50 DIM B$(l),TEMP*(16),JK<4 ) 

60 A=PEEK<106)-16JPOKE 204,A*.F'OKE 206, 
PEEK(756) 

7 0 FOR X : = 15 3 6 TO 1555JREAD VtPOKE X,Vt 
NEXT X J REM MOVE THE CHARACTER SET 
80 DATA 104,162,4,160,0,177,205,145,20 
3,200,208,249,230,206,230,204,202,208, 
242,96 

90 GRAPHICS 17 J Q-USR(1536)t POKE 756,A: 
CHARSET =A*256+32* FOR X=CHARSET TO CHAR 
SET+31* READ VtPOKE X,V*.NEXT X 
100 POKE 54279, A‘.POKE 559,62 l POKE 5327 
7,3JPOKE 53248,0 5 VT=PEEK<134)+PEEK(135 
)*2565STTB=PEEK(140)+PEEK(141)*256 
110 STR0FF=A*256+1 024-STTB ST3=I.NT (STR 
OFF/256);ST4=STR0FF-256*ST3J POKE VT + 2, 
ST4tP0KE UT+3,ST3{POKE VT+4,255 
120 POKE VT+5,0JPOKE VT+6,255 * POKE VT + 
7,0:B*(1)=CHR$(0)J B*(255)=CHR*< 0)t B* < 2 
)=B$:POKE 53248,0:POKE 623,4 
130 DATA 0,18,84,56,28,42,72,0,0,98,18 
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,28,56,72,70,0,255,255,255,126,126,126 
,60,60,60,60,126,126,126,255,255,255 
140 DATA 60,126,126,126,126,60 
150 POSITION 2,5 »? *63"HOW MANY (1-4)? 
" 3GOSUE: 570 JA=Z5 POSITION 17,55? #6, A 
160 POSITION 2,85? *6}"LEVEL (1-4)?":G 
OSUB 570 3LV=Z3POSITION 15,8J? #65Z3FOR 
X=1 TO LV3TEMP*(X)=CHR$< 0 ) ’.NEXT X 
170 FOR X = 1 TO 6’READ V 3B$ (176+X)=CHR$ 
(V)J TEMP*< X+LV)=CHR$(V):NEXT XtFOR X=L 
V + 7 TO 2#LV+6 5 TEMP* ( X) =CHR$ (0)5 NEXT X 
180 FOR X=1536 TO 15465READ V3POKE X,V 
5 NEXT X 

190 DATA 72,169,98,141,10,212,141,26,2 
08,104,64 

20 0 DI=(PEEK(560 )+F'EEK(561 )*256)+24 3F‘0 
KE DI,PEEK(DI) + 128IF’OKE 512,05POKE 513 
,65 POKE 54286,1925 REM THE INTERRUPT 
210 POKE 711,182 5POKE 704,523CP=1663BC 
-88 3 BR-177 5IC=0 5 FOR X=1 TO 43JK(X)=1JN 
EXT X 

220 FOR P = 1 TO A 5 POSITION 0,0 5? *6JCHR 
*(125); m p layer ";P3POSITION 17,0 3? *6 3 
" "3REM player IS INVERSE 

230 POSITION 17,03? *6}JK(P)SF0R X=1 T 
O 103J=INT(RND(1)*2)+43REM LIGHT GREEN 
JACKS 

24 0 R=INT(RND( 1 )*4)+20 3 C=INT(RND(1)*15 
)+2 3 LOCATE C,R,0 3IF 0032 THEN 240 

25 0 POSITION C,R 3 ? *63CHR$(J)3 NEXT XJT 
J ; =10 3TP = JK(P) 3ST-1 {POSITION 17,19 3? *6 

♦ II II 

f 

260 C=5 3R=183POSITION C,R3? *63CHR$<CF' 
) 

270 POKE 20,03IF STICK(0)<>14 THEN 270 
280 IF STICK(0) =14 THEN 280 
290 HT=INT(PEEK(20)/2)3IF HTC61 THEN H 
T : =30+( 30-INT (HT/2) ) 

30 0 GOSUB 620 5B$(255)=CHR$(0)3POKE 532 
48,BC 3 0=323 OC=C 3 OR=R 

310 POSITION 18,193? *6JIC3IF STRIG(O) 
=0 AND PEEK(20)>30 THEN CP=333-CP3POKE 
20,0 

320 IF STICK(0)=15 THEN 380 

330 POKE 77,0 3 IF STICK(0)=7 THEN POSIT 

ION C,R 3 ? *65" "3 C=C + 15 IF C=18 THEN C= 

17 
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340 IF STICK ( 0 ) = 11 THEN POSITION C,RJ? 

#6j M ":c=c-i:if c=o then c=i 

350 IF STICK(0)=13 THEN POSITION C,RJ? 

*6 J" h :r=r+i:if R = 24 THEN R = 23 
360 IF STICK(0)=14 THEN POSITION C,RJ? 

*6{“ "JR=R-1JIF R=17 THEN R = 18 
370 POSITION OC,ORJ? *6JCHR$<0)JLOCATE 
C , R , 0 

38 0 POKE 53278,0‘.POSITION C,RJ? #6JCHR 

$(cp>joc=c:or=r 

390 BR=BR-ST*LUJIF BROHT THEN ST=-1JB 
C=6C+(INT<RND<1>#HT)+l/2)JPOKE 53248,B 
C 

400 B*(BR)=TEMP$JIF BR>=185 THEN COSUB 
61 0 t COSUE: 550‘.NEXT PJGOTO 220 
410 IF ICOJK(P) AND 0032 AND CP=167 
THEN IC=IC+1 *.0=32JTJ=TJ~1 JGOSUB 630 
42 0 IF ST0-1 OR PEEK (53252) 04 OR CPC 
>166 THEN 310 

430 IF I CO TP THEN BR=185JG0T0 400 
440 GOSUB 620JGOSUB 550JIF TJCJK(P) TH 
EN TP=TJ 

450 IF TJO0 THEN 260 

460 JK(P)=JK < P)+1 *IF JK(P)<>11 THEN 23 
0 

470 POSITION 3,81? *6 J"THE WINNER IS 
PLAYER "JP 

480 POSITION 2,lit? #6J"pl3y again <y- 
n)" 

490 OPEN #2,4,0,"KJ"JGET *2,ZJCL0SE *2 

50 0 IF Z>127 THEN 7=7.-128 

510 IF Z=78 OR Z=110 THEN 600 

520 IF Z=59 OR 2=121 THEN 210 

530 GOTO 490 

55 0 POSITION C,R * ? *6J" "* B$(1)=CHR$(0 
)JB*<255)=CHR*<0)JB*(2)=B$:CP=166JST=1 


JIC=0 :BC=88‘.BR = 177 

56 0 B$ < BR-L.V ) =TEMP$ J POKE 
53248,BCJRETURN 

57 0 OPEN *2,4,0,"K S"♦GET 
JIF Z>127 THEN Z=Z-128 

58 0 Z=Z-48 JIF Z<1 OR Z>4 
590 RETURN 

600 POKE 53248,0JEND 
610 SOUND 0,220,8,10JFOR 
T XJSOUND 0 , 0 , 0 , 0‘.RETURN 


53278,OJPOKE 
*2,ZJCLOSE *2 


THEN 570 


X=1 TO 10JNEX 
J REM MISS 
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620 SOUND 0,12,6,10{FOR X=1 TO 10INEXT 
x: SOUND 0,0,0,0{RETURN {REM THROW AND 
CATCH 

630 SOUND 0,12,10,10{FOR X=1 TO 10JNEX 
T X{SOUND 0,0,0,0{RETURN {REM TAKE JAC 
K 


computer does not use the first IK of the area set aside for 
player/missile graphics, we can and do use it for our character set. 
By POKEing location 559 with 62, we tell the computer we are 
using a single-resolution player. POKE location 53277 with 3 to 
enable the player/missile graphics. POKE location 53248 with 0 
to make sure the player is off the screen. The memory used for 
the player may contain garbage; we do not want that on the screen. 
The VT variable is the location of the variable value table. This 
table stores information for all the variables, string and numeric, 
used in the program. The location of this table is stored in loca¬ 
tions 134 and 135. The STTB variable contains the beginning ad¬ 
dress of the string storage area. The address of the area is stored 
by the computer in locations 140 and 141. 

Line 110 calculates the offset of the first string. When we 
entered line 50, B$ had to be the first variable. The variable value 
table contains an offset for the strings. This offset value is added 
to the address of the string storage area. This way the computer 
knows where the information for a string or variable is located. We 
want to change this offset to point to the player/missile area for 
B$ rather than the actual string storage area. 

To get the offset we need to multiply the value of A by 256. 
This is the beginning address of the player/missile graphics area, 
but not the beginning of the first player. The first player begins 
IK past this address, so we add 1024 to this value. Since the com¬ 
puter adds the address of the string storage area to the offset, we 
need to subtract this amount from the player area. This is the off¬ 
set stored in the variable value table. If the number is larger than 
255 it must be divided into two numbers, the high-order byte (the 
integer of the address divided by 256), and the low-order byte 
(multiply the high order byte by 256 and subtract the product from 
the original number). These two numbers are POKEd into the third 
and fourth locations of the first variable in the variable value table. 
The fifth location of the table is changed to 255. The length of a 
player is 255 bytes. 

Line 120 changes the sixth location in the variable table to 0. 
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Two locations are used for the length and dimension values of the 
string. The first is the low-order byte, the second the high-order 
byte. The seventh location in the variable table is also set to 255, 
the eighth to 0. The storage area for B$ is located in the 
player/missile graphics area. B$ is 255 bytes long and has been 
dimensioned to 255 bytes. To clear this area, set the first and last 
element of B$ to a CHR$(0). Then set the second element of B$ 
to B$. This clears the entire string. Location 623 sets the priorities 
for the players and characters. This location is set to 4. The cup 
will cover the ball and jacks on the screen. 

Lines 130-140 contain the code for the jacks, the cup, and the 

ball. 

Line 150 asks how many players will play this game. The com¬ 
puter uses the subroutine at line 570 to get the answer. That number 
is stored in variable A. This number is printed on the screen. 

Line 160 asks which level will be used. The subroutine at line 
570 is used again. The number is stored in variable LV and is 
printed on the screen. The FOR-NEXT loop clears any informa¬ 
tion that might be in TEMP$. 

Line 170 reads the code for the ball from line 140 and places 
it in B$ and TEMP$. The remaining locations of TEMP$ are 
cleared. This way the computer will take the entire string when 
placing the ball in B$ rather than the last element used by the ball. 

Line 180 reads the assembly language subroutine from line 190 
and places it in locations 1536-1546. The assembly language 
subroutine is used by the computer to change the color of the bot¬ 
tom portion of the screen. Line 190 contains the decimal code for 
this routine. 

Line 200 finds the beginning address of the display list. The 
display list tells the computer, row by row, which mode to use on 
the screen. To add an assembly language subroutine the computer 
will execute every time it uses the display list, we have to tell the 
computer there is, in fact, one to use. We do this by setting the 
high-order bit of the code, or adding 128 to the existing code. The 
color on the screen will be changed at the 20th row. We add 24 
to the display list because the first three bytes are not used and 
there are two bytes used for instruction. The first byte is byte zero, 
20 plus 4 is 24. The computer PEEKs at this location and adds 128 
to the value it finds there. 

Now the computer knows that it should use an assembly 
language subroutine after this row is placed on the screen. The ad¬ 
dress for the subroutine is POKEd into locations 512 and 513. The 
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low-order address is POKEd into location 512 and the high-order 
address is POKEd into 513. POKE 192 into location 54286 to enable 
the interrupt. 

Line 210 sets the color for the fourth character, lowercase in¬ 
verse, and the first player, the ball. Variable CP is set to 166. This 
is the character code for the cup in blue and in the upright posi¬ 
tion. Variable BC is set to 88. This is the position of the ball on 
the screen when it is under the cup. BR is set to 177. This is the 
first row in which the ball will appear when it is released from 
the cup. IC is set to 0. This is the number of jacks in the cup. The 
FOR-NEXT loop sets the level of play for all the players to one. 

Line 220 begins the game. The game loops from one to the 
number of players. For each player, the screen is cleared, and the 
word “PLAYER” and the player’s number are printed at the top 
of the screen. 

Line 230 prints the number of jacks the player must pick up 
at a time in the upper right corner. The FOR-NEXT loop places 
10 jacks on the floor. The computer chooses one of two jacks. 

Line 240 chooses a position for the jack. The R variable is the 
row and variable C is the column. The LOCATE command checks 
to see if that position is empty. If variable O is 32 the location is 
empty, otherwise this line is repeated until an empty place is found. 

Line 250 prints the jack on the screen. The loop continues un¬ 
til all 10 jacks have been placed. The TJ variable is set to 10. This 
is the number of jacks on the floor. Variable TP is set to the amount 
in the JK array at location P. This is the number of jacks that must 
be picked up at one time. 

Line 260 sets the variables for the row and column of the cup. 
The cup is printed on the screen in the upright position. 

Line 270 clears the amount in location 20. This is a clock loca¬ 
tion. The joystick is checked to see if it is pushed forward. If it 
is not, the line loops. 

Line 280 loops as long as the joystick is pushed forward. The 
height of the ball is determined by how long the joystick is pushed 
forward. 

Line 290 takes the value of location 20 and divides it by 2. If 
the amount is less than 61, a formula will be used to figure out how 
high the ball should travel. 

Line 300 uses the subroutine in line 620 to make a sound. The 
last element of B$ is cleared and the ball is placed on the screen 
by POKEing location 53248 with the value of BC. Variable O is 
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set to 32. This variable will hold the value of the character the cup 
will cover. The values of R and C are stored in temporary variables 
OR and OC. 

Line 310 prints the number of jacks in the cup on the screen. 
Until a jack is picked up, this variable is 0. The fire button is 
checked to see if it is pressed and if the value of location 20 is 
greater than 30. If it is, the value of CP is subtracted from 333 and 
location 20 is cleared. There are two characters that can be used 
for the cup, character 166 and character 167. To alternate between 
the two characters, the current character is subtracted from 333, 
the sum of the two characters. This way, the variable is set to the 
other character without using IF-THEN statements or other com¬ 
mands. This method is much faster and more efficient, and it can 
be used in any routine that alternates between two specific numbers. 
Location 20 is used so the cup keeps flipping on the screen. Waiting 
until the value of location 20 is more than 30 gives the player a 
chance to take his finger off the fire button. This location is reset 
every time the cup is flipped. 

Line 320 checks to see if the joystick is moved. If it isn’t, the 
computer is directed to line 380. 

Line 330 disables the attract mode by POKEing 0 into loca¬ 
tion 77. If the joystick is moved to the right, the cup is erased from 
its current position and the value of variable C is increased by 1. 
The value of the column variable is checked to make sure it doesn’t 
exceed 17. If it does, it is reset to 17. 

Line 340 checks to see if the joystick is pushed left. The cup 
is erased and variable C is decreased by one. If the variable reached 
0, it is reset to 1. This keeps the cup on the screen. 

Line 350 checks to see if the joystick is pushed down. If it is, 
the cup is erased and variable R is increased by 1 and checked to 
see if it is equal to 24. The variable is reset to 23 if it is. 

Line 360 checks to see if the joystick is pushed up. It erases 
the cup and decreases variable R. This variable will be reset to 18 
if it reaches 17. 

Line 370 prints the CHR$ of variable O in the old row and old 
column. The first time the variable will be 32. If the cup goes over 
a jack and doesn’t pick it up, the character value of that jack will 
be stored in variable O. Then when the cup is moved again, the 
jack is printed on the screen again. The LOCATE command is used 
to get the value of the character the cup is printed over. This value 
is stored in variable O. 
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Line 380 clears the hit register. Then the cup is printed on the 
screen. The new position of the cup is stored in variables OC and 
OR. 

Line 390 calculates the position of the ball in B$ by multiply¬ 
ing the value of ST by LV and subtracting it from the value of BR. 
If the game is at level one and the value of ST is 1, the value of 
BR will decrease by 1 each time this line is executed. The ball 
travels very slowly up the screen at level one. If variable ST is - 1, 
the value of BR increases and the ball travels down the screen. The 
value of BR is compared to the value of HT. This is the highest 
position the ball can travel to on the screen. If the ball is at its peak, 
the value of ST is changed to -1. A new value for the column the 
ball travels down is calculated and the new position is POKEd into 
location 53248. 

Line 400 places the ball in B$ at position BR. The character 
codes for the ball are in TEMP$. Since the storage area for B$ is 
the player/missile area, the ball is on the screen and moves im¬ 
mediately. If the value of BR is 185 or more, the cup did not catch 
the ball. The subroutine at line 610 makes a sound and the com¬ 
puter is sent to the subroutine at line 550 to erase the ball and move 
the cup. The loop continues. After all the players have a turn, the 
computer is sent to line 220 to continue the game. 

Line 410 compares the number of jacks in the cup with the 
number that should have been picked up. If these two values are 
not the same, the value of O is not a space, and the cup is upside 
down, the computer picks up the jack by increasing the value of 
IC, changing the value of O to 32 (space) and decreasing the value 
of TJ. The computer uses the subroutine at line 630 to make a 
sound. 

Line 420 checks to see if the joystick can still move the cup. 
If the value of ST is -1, or ball has not hit the cup, or the cup is 
not in the upright position, the computer goes to line 310 and the 
cup can still be moved. If variable ST is -1, the ball was moving 
down. If variable CP is 166, the cup is upright, and if location 53252 
contains a 4, the ball hit the cup. When all three of these condi¬ 
tions are true, the ball has been caught by the cup and the com¬ 
puter executes the next line. 

Line 430 checks to see if the number of jacks in the cup is cor¬ 
rect. If it is not, the value of BR is set to 185 and the computer 
is sent to line 400. This is the same as missing the ball. 

Line 440 uses the subroutine at line 620 to make a sound. It 
then uses the subroutine at line 550 to move the cup and ball back 
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to the starting position. The computer then checks to see if the 
number of jacks left on the floor is less than the number of jacks 
that should be picked up at one time. If there are less, the value 
for the number of jacks that should be picked up is changed. This 
happens on almost every turn, beginning with “threes.” The pickup 
sequence for “threes” are three, three, three, one. On the next turn 
the jacks are picked up by fours: four, four, two. If the value of 
TP is not changed, the computer does not accept the last number 
of the sequence. 

Line 450 checks to see if all the jacks have been picked up. 
If TJ is not 0, the computer is sent to line 260 to continue the game. 

Line 460 is used when all the jacks have been picked up. The 
number of jacks to be picked up at one time are increased by 1. 
If this value is not 11, the computer is sent to line 230 to continue 
the game. 

Line 470 declares the winner of the game. The first player to 
pick up all 10 jacks in one turn wins. 

Line 480 asks if you want to play again. 

Line 490 waits for a response. 

Line 500 checks to see if the value of Z is greater than 127. 
If it is, 128 is subtracted from the value. 

Line 510 checks to see if the value of Z is an upper- or lower¬ 
case N. If so, the computer is sent to line 600 to end the game. 

Line 520 checks to see if an upper- or lowercase Y was entered. 
If so, the computer is sent to line 210 for another game. 

Line 530 sends the computer to line 490 to wait for another 
entry. 

Line 550 erases the character at the screen position determined 
by variables R and C. The B$ is cleared and the variables are reset. 

Line 560 places the ball into the correct position of B$, clears 
the hit register, and places the ball on the screen. The computer 
then returns to the line that called this routine. 

Line 570 is the routine that gets the number for the two ques¬ 
tions at the beginning of the game. If the value of the key pressed 
is greater than 127, the inverse key has been pressed. The value 
of Z is determined by subtracting 128 from its value. 

Line 580 subtracts 48 from the value of Z. This gives another 
value. If a correct number key has been pressed, the value is be¬ 
tween 1 and 4. If the number does not fall between these values, 
line 570 is repeated. 

Line 590 sends the computer back to the line that called it. 

Line 600 ends the game. Location 53248 is POKEd with 0 to 
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make sure the player is removed from the screen. 

Lines 610-630 are sound routines. The routine used depends 
on whether the cup was missed, the ball is being thrown or caught, 
or a jack is taken. 

SKI 

Objective of the game: To make it through the course with¬ 
out hitting any flags or trees. 

Directions: This is a one-player program. One joystick is 
needed. It should be plugged into the first joystick port. 

You will be asked for a level of play, of which there are five. 
The higher the level, the more trees you will have to avoid. You 
will also be asked how many gates. The number you enter will give 
you that number of rows of gates with five flags in each row. 

After you answer both questions, the screen clears and the 
course is printed on the screen. The skier is in the upper left cor¬ 
ner. To score points, you must maneuver him under the red flags 
and over the blue flags. Sometimes there is a tree quite close to 
the flag. Your skier can squat down to avoid the trees. Push the 
fire button and the skier becomes smaller. If you hit a flag, points 
are subtracted from your score. If you hit a tree, the words “PRESS 
START” appear on the screen. The game can be played again by 
pressing the Start key. Figure 5-7 is the flowchart, Fig. 5-8 is the 
character set for this program, and Listing 5-4 is the code. 

Line 50 sets aside the memory needed for the strings. SKI$ 
must be the first variable used in this program. It will be relocated 
to the player/missile area of memory. The four subsequent SKI$s 
contain the four different characters that can make up the skier. 
The NUMBER variable is set to 1000. This is the line number for 
the subroutine that reads the keyboard. 

Line 60 uses the PEEK command to locate the end of RAM. 
We need 4K for the character set and the player/missile graphics 
area. The beginning location for the new character set is POKEd 
into location 204 and the location of the character in ROM is POKEd 
into location 206. These two locations are used by the assembly 
language subroutine when it moves the character set from ROM 
into RAM. 

Line 70 reads the code for the assembly language subroutine 
from line 80 and places it in memory locations 1536-1555. This is 
the assembly language subroutine that moves the character set from 
ROM into RAM. Line 80 contains the decimal code for the assembly 
language subroutine. 
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assembly language subroutine. The beginning address of the 
subroutine is placed within the parentheses. The new address of 
the character set is POKEd into location 756. The new characters 
begin with the third character in the character set. To calculate 
where this character is located, we multiply the value of A by 256 
and add 24. This is the first byte of the third character. The FOR- 
NEXT loop reads the codes for the new characters and POKEs the 
code into the character set. These characters form the flags and 
the trees. 

Line 110 relocates SKI$ from the first position of the string 
storage area to the player/missile graphics area. Location 54279 
is POKEd with the value of A. This is the beginning of the new 
character set, but because the first IK of the player missile graphics 
area is not used by the player/missile graphics, we can use the same 
address and begin the player right after the new character set. Loca¬ 
tion 559 is POKEd with 62. The player is single-line resolution. 
POKE location 53277 with 3 to enable the player/missile graphics. 
The address of the variable value table is stored in locations 134 
and 135. This table contains the location and other information on 
all string and numeric variables. To relocate SKI$ we need to know 
where this table is located. The area of memory that stores the 
string and array information is called the string storage area. Its loca¬ 
tion is stored in memory locations 140 and 141. 

Line 100 calculates the offset for the string. The variable value 
table contains a number called an offset. This number is added to 
the location of the string storage area so the computer knows 
where a particular string is located. The first string has an offset 
of 0. 

We want to relocate SKI$ to the first player area of the 
player/missile graphics area. To calculate this offset value multiply 
the value of A by 256 and add 1024. This is the first byte of the 
first player. The value of STTB is subtracted from this amount 
since this is the value that will be added to the offset. This new 
value is the offset stored in the third and fourth locations of the 
variable value table. The offset value is divided into two numbers 
before it is stored. The high-order byte is arrived at by taking the 
integer of STROFF divided by 256. The low-order byte is the dif¬ 
ference between STROFF and the high-order byte. These two 
values are stored in the third and fourth locations of the variable 
value table. The fifth location is POKEd with 255. This is the low- 
order byte of the length of the string. The string is 255 bytes long. 

Line 120 places a 0 in the next location, the high-order byte 


269 




Fig. 5-7. Flowchart for Ski. 

270 

























271 











Fig. 5-8. Character set for Ski. 

Listing 5-4. Ski. 


10 REM SKI - A WINTER SPORT 
20 REM CHAPTER 5 ~ SIMULATIONS 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1983 

50 DIM SKI$(1) >SKI1$(18 >» SKI2$(18),SKI 
3$ (18 ) , SKI44 < 18 > 5 NUMBER=1 0 0 0 
60 A=F'EEK< :L06) -16’POKE 204,AIPOKE 206, 
PEEK(756) 

70 FOR X=1536 TO 1555 * READ OIPOKE X,DI 
NEXT XIREM MODE THE CHARACTER SET 
80 DATA 104,162,4,160,0,177,205,145,20 
3,200,208,249,230,206,230,204,202,208, 
242,96 

90 GRAPHICS 17 IQ-USR( 1536) 5 POKE 756,Al 
CHARSET : =A*256+241 FOR X-CHARSET TO CHAR 
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SET+3'15READ V5 POKE X,V;NEXT X 
10 0 POKE 54279,A 2 POKE 559,62 5 POKE 5327 
7,35 POKE 53248,0 5 VT=PEEK(134)+PEEK(135 
) *256,5STTB=F'EEK (140 ) +PEEK (141) *256 
110 STR0FF = A*256U 024-STTB5 ST3=INT<STR 
OFF/256)5 ST4~STR0FF-256*ST35 POKE VT + 2, 
ST4 *POKE VT+3,STS 5 POKE VT+4,255 
120 POKE VT+5,05POKE VT+6,2555POKE VT+ 
7,05POKE 623,4 

130 DATA 240,252,252,140,128,128,128,1 
28,16,56,124,254,124,254,16,16,0,4,14, 
31,0,32,112,248,0,0,0,16,56,124,254,16 
140 FOR X=1 TO 185 READ V5SKI1 $<X)=CHRT' 

(v );next x 

150 DATA 0,0,56,56,56,16,124,186,185,1 
20,56,56,168,120,36,18,0,0 
160 FOR X = 1 TO 18 J READ V 5 SKI2T (X ) =CHRT 
(V)*NEXT X 

170 DATA 0,0,28,28,28,8,62,93,157,30,2 
8,28,157,22,36,72,0,0 

180 FOR X=1 TO 18 5READ V 5 SKI3T < X)=CHRT 
(9)5NEXT X 

190 DATA 0,0,56,56,56,16,124,186,186,5 

6,56,56,40,40,40,40,0,0 

20 0 FOR X=1 TO 18 5READ V5SKI4T(X)= CHRT 

(y)5 next x 

210 DATA 0,0,0,0,0,56,16,186,56,56,40, 
40,0,0,0,0,0,0 

22 0 ? *6}:SKIT(1)=CHR*(0)5 SKIT(255) 
“■CHRT ( 0 ) * SKIT ( 2 ) -SKIT 5 POSITION 2,3 J? * 

6 J "LEVEL (1-5)?" 5GOSUB NUMBER 

230 POSITION 15,3J? *6JZ1L=ZJPOSITION 
2,85? *6?"GATES (1-5>?"5GOSI.JB NUMBER5P 
OSITIQN 15,81? *6;z5G=z 
240 SCORE=05? *6 1 1 POKE 704,865POKE 

708,80JPOKE 7 09,198 * POKE 710,1501 POKE 
711,68* POKE 712,85F0R X«1 TO 6*L. 

250 R=INT(RND(l)*22)+i:C=INT(RND(l>*20 
>5 LOCATE C,R » O 5 IF 0032 THEN 250 
26 0 N=INT(RND(1)*3)* POSITION C,R1? *6 5 
CHRT(4+N)5 NEXT X 

270 FL.AG=131 * FOR X=1 TO G 5FOR Y==:L TO 1 

7 STEP 45POSITION Y,X*4 5? *65CHRT(FLAG 
)5FLAG-294-FLAG5 NEXT Y5NEXT X 

28 0 SF'=30 * SK=45 * SKIT (SF') =SKI3T J POKE 53 
248 , SK 1 FL.AG : =1315 SR-1 *.FP = 0 5 NP=56 5 DIR = 15 
F H ;= 0 
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29 0 POSITION 15,0 5? *6}SCORE 55POKE 532 
78.05IF STICK(0)=15 THEN 290 
300 IF STICK(0)=7 THEN SK=SK+15IF STRI 
G(0) THEN SKI*(SP)=SKI 1$ 

310 IF STICK(0)=11 THEN SK=SK-15IF STR 
IG < 0 ) THEN SKI*(SP)=SKI2* 

32 0 IF STICK ( 0 ) : = 13 THEN SP=SP+1JIF STR 
IG(0) THEN SKI*(SP)=SKI3* 

330 IF STICK(0 ) = 14 THEN SP=SP-15IF STR 
IG(0) THEN SKI*<SP)=SKI3* 

340 IF STICK(0)=6 THEN SP=SP-15SK=SK+1 
5IF STRIG(O) THEN SKI*<SP)=SKI1* 

350 IF STICK(0)=5 THEN SP=SP+15SK=SK+1 
5 IF STRIG(O) THEN SKI*<SP>=SKI1* 

360 IF STICK(0)=10 THEN SP=SP-15SK=SK- 
15IF STRIG(O) THEN SKI*(SP)=SKI2* 

370 IF STICK(0)=9 THEN SP=SP+15SK=SK-1 
5 IF STRIG(O) THEN SKI*<SP)=SKI2* 

380 IF SK>205 THEN SK=205 
390 IF SKC35 THEN SK==35 

395 IF SP<20 THEN SP=20 

396 IF SP>229 THEN SP=229 
")0 0 IF SP<20 THEN SP=20 
^10 IF SP>229 THEN SP=229 

42 Q POKE 53248,SK 5 IF STRIGC0)=0 THEN S 
KI*(SP)=SKI4* 

430 IF SK=NP THEN GOSUE: 50 0 
440 HIT=PEEK(53252)1IF HIT=2 THEN 480 
450 IF HITOO AND FH=0 THEN SOUND 0,10 
,10,10 IFOR TM~1 TO 10 5 NEXT TM5 SOUND 0, 
0,0,05 FH=1 

460 IF HIT ; = 0 AND FH=1 THEN SCORE>SCORE 
~(SR*10)5FH=0 5POSITION 15,05? *6 5" 

"5 IF SCORECO THEN SCORE=0 
470 GOTO 290 

480 SOUND 0,10,8,105FOR TM=1 TO 105NEX 

T TM5SOUND 0,0,0,05GOTO 610 

50 0 FP=FF'+15IF FLAG = 131 AND SP>30+SR*3 

3 AND SP<30+(SR + 1)*33 THEN 530 

510 IF FLAG=:L63 AND SP<30+SR*33 AND SP 

>30 + <SR-1)*33 THEN 530 

520 SOUND 0,200,8,105FOR TM=1 TO 105NE 
XT TM5 SOUND 0,0,0,05 GOTO 54 0 
530 SOUND 0,50,1 0,10 5FOR TM=1 TO 105NE 
XT TM5SCORE=SCORE+SR*10{SOUND 0,0,0,05 
POSITION 15,05? *65" 
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540 IF FP/5=INT(FP/5) THEN IF SR=G THE 
N GOTO 600 

550 IF FP/5=INT < FP/5) THEN SR=SR+15NP= 

NP+(31*DIR)JDIR=DIR*-1 

560 NF'=NP+ ( 3:l*DIR ) 5 FLAG = 294-FL.AG 5 RETURl 

N 

60 0 POSITION 5,105? #6 5"YOU DID IT!" 

610 POSITION 5,125? #6 5"PRESS START"5R 

EM START IS INVERSE 

620 IF PEEK <53279)06 THEN 620 

630 GOTO 220 

1 0 00 OPEN #2,4,0,"K 5"5 GET *2,Z5CLClSE * 

2 

1010 IF Z>127 THEN Z=Z-128 

1020 Z=Z-48 5 IF Z<1 OR Z>5 THEN GOTO NU 

MBER 

1030 RETURN 


Line 90 sets the screen for graphics 17. This is graphics 2 with 
no text window. The USR command is used to execute the 
of the length of the string. The next two locations are set the DIM 
value. We want to change the values of these locations to 255 and 
zero. POKE location 623 with 4 to set the priorities of the player. 

Line 130 contains the code for four characters. 

Lines 140-210 place the code for the four skiers into four dif¬ 
ferent strings. These characters are placed into the player string, 
depending on which direction the skier is going in and whether the 
first button has been pressed. 

Line 220 clears the screen, then clears SKI$ by placing the 
character 0 in the first and last elements of the string and setting 
the second element of the string to the string. The computer asks 
for a level number. The subroutine at line 1000 is used to get the 
input. 

Line 230 prints the level number after the question mark and 
stores this number in variable L. The computer asks for the number 
of gates. The subroutine at line 1000 is used again. When the com¬ 
puter returns to this line, it prints the number after the question 
mark and stores this value in variable G. 

Line 240 clears the SCORE variable and the screen. The colors 
for the player, the flags, the trees, and the screen are set. The FOR- 
NEXT loop begins here. The value of L determines how many trees 
are printed on the screen. 

Line 250 selects a random row and column for the tree. The 
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Locate command checks to see if that position is empty. If it is not, 
the line is repeated until the computer chooses an empty location. 

Line 260 chooses a number from 1 to 3. This number deter¬ 
mines which tree will be printed on the screen. The loop continues 
until all the trees are placed on the screen. 

Line 270 prints the rows of flags on the screen. Variable FLAG 
is set to 294. These are the red flags. The number of rows the FOR- 
NEXT loop prints is set by the value of variable G. The flags are 
printed four columns apart. After a flag has been printed, the value 
of FLAG is subtracted from 294. Now FLAG contains the value 
for a blue flag. The loops continue until the correct number of flags 
are printed on the screen. 

Line 280 sets the variables used in the skiing routine. The SP 
variable is the position of the skier in SKI$. SK is the column posi¬ 
tion of the skier. The third skier character is placed in SKI$. Loca¬ 
tion 53248 is POKEd with the column position. The skier is the 
first player of the player/missile graphics. These commands place 
the skier on the screen. The value of flag is set tol31, the red flag. 
The SR variable keeps track of which row the skier is moving 
through. The score for each flag passed is increased after each row 
is completed. 

The FP variable is the flag the skier has passed. The computer 
needs to know whether this is the first or last flag of the row. NP 
is set to 56. This is the column position the skier must cross to score 
points for each flag. The direction variable, DIR, is set to 1. When 
DIR is 1, the skier is moving from left to right. When DIR is -1 
the skier is moving from right to left. The FH variable is set when 
the skier hits a flag. Points are subtracted from the score when a 
flag is hit. 

Lines 290-420 maneuver the skier on the screen. The score is 
printed on the screen in the upper right comer. The hit register 
is cleared. If the joystick is not moved, the line loops. The com¬ 
puter proceeds to the rest of the routine when the joystick has been 
moved. The skier can move in any of the eight joystick directions. 
The column variable, SK, is increased or decreased depending on 
which way the joystick is moved. The row variable, SP, is also in¬ 
creased or decreased when the joystick is pushed down or up. If 
the joystick is pushed on the diagonal, both the row and column 
variables change. 

The correct ski character is moved immediately into the SKI$. 
This can be any one of the three skiers, depending on which direc¬ 
tion the skier is moving. The position of the skier is checked to 
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make sure he doesn’t ski off the screen. The column of the skier 
is POKEd into location 53248. The fire button on the joystick is 
checked. If it is pressed, the fourth skier is placed on the screen. 
This is the smaller version of the skier. He can get through the 
trees that sometimes surround the flags. 

Line 430 checks to see if the skier is in the same column as 
the flag he is trying to ski around. If he is, the computer uses the 
subroutine in line 500 to make sure the skier is going around the 
flag the right way, and adds the correct number of points to the 
score. 

Line 440 checks to see if the skier has hit something. The value 
of memory location 53252 is stored in variable HIT. If the skier 
has not hit a flag or tree, this value is 0. If something has been hit, 
the value is different. If the value of HIT is 2, the skier has hit 
a tree and the computer is directed to the lines that will end the 
game. 

Line 450 checks to see if the value of HIT is something other 
than 0. If it is, and the value of FH is 0, the computer makes a 
sound indicating that the flag was hit and set the value of FH to 1. 

Line 460 subtracts points from the score when the flag is hit. 
The score cannot fall below 0. 

Line 470 sends the computer back to line 290. This routine con¬ 
tinues until the skier passes the last flag on the course. 

Line 480 is the routine the computer uses when a tree is hit. 
The computer makes a sound, then is sent to line 610, which ends 
the program. 

Line 500 is the subroutirle that checks to see if the skier has 
gone around the pole correctly. The value of FP is increased by 
1. This is the number of the flag the skier went around. The com¬ 
puter checks to see if the position of the skier is correct in rela¬ 
tionship to the flag passed. If the color of the flag is red, the skier’s 
position value must be greater than that row value, but less than 
the next row’s value. If both conditions are met, the computer goes 
to line 530 to score the points. 

Line 510 checks to see if the skier went above the blue flag’s 
row, but stayed under the row of flags in the previous row. Again, 
if the skier went around the flag the correct way, the computer will 
go to line 530 to score the points. 

Line 520 makes the sound that tells the player the skier went 
around the flag in the wrong direction. The computer goes to line 
540 to calculate where the next flag is. 

Line 530 makes the sound for a skier who went around the flag 
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correctly. The score is increased by the value of SR times 10. Each 
time one row is completed, the scores for the next row are increased 
by 10 points. 

Line 540 checks to see if this was the last flag of the row. If 
it is, the computer checks to see if this was the last row. If it was, 
the computer is sent to line 600 to end the game. 

Line 550 checks again to see if this is the last flag of the row. 
If it is, the value of SR is increased by 1, and the direction is 
reversed. The statement to find the position of the next flag must 
be included in this line, even though it is repeated in the next line, 
because the computer uses the value of NP to calculate the next 
position. By including it in this line the computer calculates the posi¬ 
tion of an imaginary flag. This position is used to calculate the cor¬ 
rect position of the first flag of the next row. 

Line 560 calculates the position of the next flag in that row. 
The value of FLAG is changed to the other color and the computer 
returns to the line that called this subroutine. 

Line 600 is used when the skier completes the entire course. 

Line 610 tells the player to press the Start key to play another 
game. 

Lines 620-630 loop until the Start key is pressed. The computer 
is sent to line 220 to play the game again. If you want to end the 
game, press the System Reset key. 

Lines 1000-1030 are the subroutine used in the beginning of 
the program to get the one-digit entry. The keyboard is opened and 
the computer waits until a key is pressed. The value of this key 
is placed in variable Z and the keyboard is closed. If the value of 
Z is greater than 127, 128 is subtracted from it. Then 48 is sub¬ 
tracted from the value of Z. The value of zero is 48, so this gives 
us the number of the pressed key. If the key was less than 1 or 
greater than 5, the computer goes back to line 1000 and waits for 
another key to be pressed. If a number key between 1 and 5 was 
pressed, the computer returns to the line that called this subroutine. 

PINBALL 

Objective of the game: To keep the ball in play as long as 
possible and to score as many points as possible. 

Directions: Two joysticks are needed for this program. Plug 
one joystick into the first joystick port and the second into the sec¬ 
ond joystick port. To release the ball, press the first button on the 
first joystick. The ball will travel up the side of the playfield, across 
the top of the screen, then drop through one of the openings at the 
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top of the screen. Press the fire buttons on the joysticks to move 
the flippers on the bottom of the screen. You can control the direc¬ 
tion of the ball somewhat by moving the joystick. Points are scored 
each time the ball hits one of the characters on the field. Figure 
5-9 is the flowchart, and Fig. 5-10 is the character set for this pro¬ 
gram, and Listing 5-5 is the code. 

Line 50 sets aside the memory for the strings. B$ must be the 
first variable used in this program. The program will relocate the 
memory storage area for this string. TEMP$ stores the code for 
the ball. 

Line 60 finds out how much memory is in the computer. The 
character set is placed IK above the screen memory. This amount 
is stored in variable A. This value is also stored in memory loca¬ 
tion 204. The beginning of the ROM-based character set is stored 
in memory location 206. 

Line 70 places the code for the assembly language subroutine 
in memory locations 1536-1555. Line 80 contains the code for this 
routine. 

Line 90 changes the screen to graphics mode 17. This is 
graphics mode 1 with no text window. The USR command tells 
the computer to go to the subroutine at location 1536. When the 
computer returns to this line, the value of A is POKEd into loca¬ 
tion 756. This is the beginning of the character set in RAM. If your 
screen contains garbage at this point the wrong value was placed 
in this location. If graphics characters do not appear on the screen 
when the game begins, the value was POKEd into the wrong loca¬ 
tion. The CHARSET variable is set to the first byte of the fourth 
character. This is the first character to be changed. Eleven 
characters in the RAM character set are changed. The FOR-NEXT 
loop reads the new character codes and POKEs them into these 
locations. 

Line 100 POKEs the value of A into memory location 54279. 
This is the beginning of the character set, but it is also the address 
used for the player/missile graphics. The first player actually begins 
1048 bytes after this address, so the RAM-based character set fits 
into memory just before the player/missile graphics area. Location 
559 is POKEd with 62 to tell the computer to use single-line resolu¬ 
tion for the players. 

To enable the player/missile graphics, POKE location 53277 
with 3. The address of the variable value table is placed in variable 
VT. This table contains information for all the variables and strings. 
We will change this information when we relocate B$. The area 
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Fig. 5-9. Flowchart for Pinball. 
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of memory where information for the strings and arrays is stored 
is called the string storage area. Its address is stored in locations 
140 and 141. This address is placed in variable STTB. 

Line 110 calculates the offset for the new storage area for B$. 
The first player area is arrived at by multiplying the value of A 
by 256 and adding 1024. From this number we subtract the value 
of STTB. When the computer looks for the area of memory where 
B$ is stored it adds this value to the offset value. We subtract it 
now so that when it is added back the string is located at the area 
set aside for the first player. The value is divided into a two-byte 


281 









O LH 


Fig. 5-10. Character set for Pinball. 

Listing 5-5. Pinball. 


10 REM PINBALL - A GAME OF SKILL 
20 REM CHAPTER 5 - SIMULATIONS 
30 REM BY L.M. SCHREIBER FOR TAB BOOKS 
40 REM COPYRIGHT 1983 
0 DIM B*<1),TEMP*<8) 

0 A=F'EEK (106) “16 J POKE 2 04, A'.POKE 206, 
PEEK(756) 

70 FOR X=1536 TO 1555JREAD VtPOKE X,UJ 
NEXT X5REM MODE THE CHARACTER SET 
80 DATA 104,162,4,160,0,177,205,145,20 
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3,200 ,208,249,230,206,230,204,202,208, 
242,96 

90 GRAPHICS 17:Q=USR(1536)tPOKE 756,At 
CHARSET : =A*256 + 32 5 FOR X=CHARSET TO CHAR 
SET+875 READ V J POKE X,OS NEXT X 
100 POKE 54279,At POKE 559,62 SPOKE 5327 
.7,3*POKE 53248,0 !OT=PEEK<134)+PEEK(135 
) *256 S STTB=PEEK (140 ) +PEEK < 141) *256 
110 STROFF = A#256+1024-STTBS ST3=INT(STR 
OFF/256) S ST 4~STR0FF-256*ST3 J POKE! OT + 2, 
ST4SPOKE OT+3,ST3 S POKE OT+4,255 
120 POKE VT+5,0SPOKE OT+6,2555 POKE OT+ 
7,0 !B*(1)=CHR*<0> SB*(255)=CHR*(0)SB* (2 
)=B* 

130 DATA 252,240,224,192,192,128,1 

28,255,0,0,0,0,0,0,0,255,63,15,7,3,3,1 
,1,128,128,128,128,128,128,128,128 
140 DATA 1,1,1,1,1,1,1,1,0,0,0,0,0,0,2 
55,255,3,3,12,12,48,48,192,192,192,192 
,48,48,12,12,3,3 

150 DATA 0,60,110,118,118,110,60,0,0,1 
8,84,56,28,42,72,0,0,0,0,16,56,124,254 
,0 

170 POSITION 0,15? *6S"*%% 7 . 7 . 7 . 7 . 7 . 7 & 
SCORE' 1 SCOLOR 39 l PLOT 0,2SDRAWTO 0,21SC 
OL.OR 40 SPLOT 12,2SDRAMT0 12,21 
18 0 PLOT 13,1*DRAWTO 13,21SCOLOR 41S PL 
OT 1,21SDRAWTO 11,21SCOLOR 172SPLOT 3, 
3SPLOT 6,35 PLOT 9,3SPLOT 1,12 
190 PLOT 11,12 5 COLOR 13SPL0T 2,7SPL0T 
10,75PLOT 5,10 SF'LOT 7,10SCOLOR 142SPL0 
T 3,195PLOT 9,19!PLOT 6,15 
195 POSITION 6,215? *65" " 

200 POKE 7 04,56 S RESTORE 150SFOR X = 1 TO 
8 5 READ O 5B*(2 0 0 +X)=CHR*(0)5 TEMP*(X)=C 
HR*(0)5 NEXT X5C=1525POKE 53248,C 
210 IF STRIG(0)=1 THEN 210 
220 FOR X : = 20 0 TO 30 STEP -1 5 B* ( X ) =TEMP 
*5 NEXT XSR=3 0 5C1 = INT(RND(1)*3)!C2 = 1205 
IF Cl = l THEN C2-96 
230 IF Cl=2 THEN C2=72 

240 FOR X = C TO C2 STEP -1 SPOKE 53248,X 
5 NEXT X 5 C = X+15 FOR X = R TO R+125B*<X)=TE 
MP* 5 NEXT X 5 R = X-1 
250 DC==INT (RND( 1 )*3)~1 5DR==1 
26 0 POKE 53278,0 5R=R+DR5C=C+DC5IF R<42 
THEN R=R+DR*-1 
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27 0 B$(R)=TEMP$5POKE 53218,C 5IF PEEK<5 
3252>=0 THEN 310 

28 0 Q=PEEK (53252 ) 5DR=DRx-l 5 DC=DC*~1J F(3 
R X=1 TO 55R=R+DR5C=C+DC5B$<R)=TEMP*5P 
OKE 532-18, CJ NEXT X 

285 IF C<17 THEN C=175POKE 53218,C J REM 
KEEP THE BALL ON THE FIELD 

286 IF 0115 THEN C=1455P0KE 53218,C 
290 IF Q>1 THEN SC0RE = SC0RE + Q*10 5 FOR X 
= 1 TO 10{POKE 712,INT <RND(1) *15)’SOUND 

0,INT(RND<1>*1001+100,10,105NEXT X 
30 0 POKE 712,0:SOUND 0,0,0,05DR=INT(RN 
D<1)*3)-15DC=INT<RND<1)*3)-15IF DR = 0 A 
ND DC = 0 THEN 300 

310 POKE 77,0 5 ST-STICK < 0)5 IF STICK<0)= 

15 THEN 360 

320 IF ST=7 THEN DC=1 

330 IF ST = 11 THEN DC=-1 

310 IF ST = 11 THEN DR=-1 

350 IF ST = 13 THEN DR=1 

360 Q= 0 5 IF STRIG < 0)=0 THEN LOCATE 5,21 
,05 POSITION 5,215 IF 0=11 THEN ? #6;"* 

"5 FOR X=1 TO 50 5 NEXT X 

370 IF Q=12 THEN ? *6}") "5FOR X=1 TO 

50 5NEXT X 

380 IF STRIG(1)=0 THEN LOCATE 7,21,Q5P 
OSJTION 7,215IF 0=11 THEN ? #6;"+"JFOR 
X = i TO 50 5NEXT X 

390 IF 0 = 13 THEN ? *65")"5 FOR X = 1 TO 5 
0 5 NEXT X 

10 0 POSITION 15,35? *65SCORE 5IF R<2 0 2 
AND SCOREC100000 THEN 260 
110 POSITION 15,7 5? #65"gaMe"5 POSITION 
16,9 5? #65"over"5REM over IS INVERSE 
12 0 IF PEEK (53279) 06 THEN 120 
130 ? #6}CHR$(125)5SCQRE=0 5 GOTO 170 


number and stored in the third and fourth locations of the variable 
value table. The value 255 is placed in the fifth location. This is 
the length of the string. 

Line 120 POKEs 0 into the next location. That is the high-order 
byte of the string length. The next two locations are POKEd with 
255 and 0. B$ is dimensioned to 255. 

Lines 130-150 contain the code for the new characters. 
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Lines 170-195 print the top of the pinball field and the word 
“SCORE” on the screen. The PLOT and DRAWTO commands 
place the rest of the pinball outline on the screen. 

Line 200 changes the color of the first player. The pointer is 
reset to line 150. This is the line where the computer will read 
DATA when a READ command is used again. The FOR-NEXT 
loop reads the code in line 150 and places it in B$ and TEMP$. 
This is the code for the ball. By placing it in B$, it is put directly 
the player/missile area. TEMP$ also contains the code for the ball. 
When the ball is moved in B$, it is replaced with the code from 
TEMP$. Variable C is set to 152. This is the column in which the 
ball in the player/missile area will be printed. The ball appears on 
the screen when the value of C is POKEd into location 53248. 

Line 210 loops until the fire button is pressed. 

Line 220 moves the ball up the screen. The FOR-NEXT loop 
starts with the ball near the bottom of the screen. The loop steps 
backwards, raising the ball one row every time the loop is com¬ 
pleted. Variable R is set to 30. This is the row the ball is in. Variable 
Cl is set to a random number between 0 and 2. This determines 
which opening the ball falls through. Variable C2 is set to 120. This 
is the third opening. If Cl is 0, the ball falls through this opening. 
If Cl is l,the ball falls through the middle opening. 

Line 230 checks to see if Cl is 2. If it is, the ball will fall through 
the first opening. 

Line 240 moves the ball across the screen. The ball begins in 
the column it is in, and moves to the right to the column of the open¬ 
ing it will fall through. As variable X changes, the value of X is 
POKEd into location 53248. Variable C is reset to the column the 
ball is in, and the following FOR-NEXT loop drops the ball through 
the opening. Variable R is set to the row the ball is in. 

Line 250 sets variable DC to a random number from - 1 to + 1. 
This number determines which direction the ball moves. Variable 
DR is set to 1. 

Line 260 clears the hit register by POKEing location 53278 with 
0. Variables R and C are changed. If the value of R is less than 
42, the direction of the ball is reversed. This way the ball cannot 
go out the openings at the top of the screen. 

Line 270 places the ball in the new location in B$. The new 
column value is POKEd into location 53248. Location 53252 is 
checked for a zero value. If it is, the ball has not hit anything and 
the computer is directed to line 310. 

Line 280 places the value of location 53252 in variable Q. The 
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object the ball hit is determined by the value of Q. The direction 
of the ball is reversed by multiplying the values of DR and DC by 
-1. The FOR-NEXT loop moves the ball away from the object hit. 
The ball is placed in B$ at the new row position, and the new value 
of C is POKEd into location 53248. The loop continues until the 
ball has been moved about five rows and columns. 

Line 285 checks the value of the column variable. If it is less 
than 47, the variable is reset to 47 and this value is POKEd into 
location 53248. This keeps the ball on the pinball field. 

Line 286 checks the value of C to see if it is greater than 145. 
If it is, C is reset to 145. This keeps the ball from going into the 
scoring area of the screen. 

Line 290 checks the value of Q. If Q is 1, the boundary of the 
pinball area has been hit and no points are awarded. If it is greater 
than 1, the value of Q times 10 is awarded the player. The screen 
changes colors and the computer makes a sound when the ball hits 
an object. 

Line 300 resets the screen color and turns the sound off. A new 
random number between - 1 to + 1 is picked for the direction of 
the row and column. If both the row and column direction are 0, 
the line repeats itself. This way the ball doesn’t sit in the middle 
of the screen and do nothing. 

Line 310 disables the ATTRACT mode so the screen doesn’t 
change colors while you are playing the game. The value of the 
joystick is placed in variable ST. If the joystick hasn’t moved, the 
value is 15 and the computer goes to line 360. 

Lines 320-350 change the direction of the ball based on the posi¬ 
tion of the joystick. 

Line 360 clears variable Q. If the first button on the first joystick 
has been pressed, the computer gets the value of the character that 
forms the paddle. If its value is 41, the computer prints the other 
character on the screen. The timing loop gives the player a chance 
to release the fire button. 

Line 370 checks the value of Q also. If it is 42, character 41 
is printed on the screen. This way the other position of the paddle 
is always printed on the screen. 

Line 380 checks to see if the first button on the second joystick 
has been pressed. If it has, the computer uses the LOCATE com¬ 
mand to get the value of the character in the second paddle’s posi¬ 
tion. If the value of Q is 41, the character whose value is 43 is 
printed on the screen. 

Line 390 checks to see if the character’s value is 43. If it is, 
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the character whose value is 41 is printed on the screen. 

Line 400 prints the player’s score on the screen. If the value 
of the row variable is less than 202 and the score is less than 1000, 
the game continues on line 260. If the ball is in a row whose value 
is greater than 202, the ball has fallen out of the pinball area and 
the game is over. The game is also over when a player reaches the 
score of 100,000 or more. 

Lines 410-430 end the game. The message “GAME OVER” 
is printed on the screen. The value of 53279 is checked. The com¬ 
puter loops until the Start key is pressed. The screen clears and 
the score is reset to zero when the Start key is pressed. The com¬ 
puter goes to line 170 to play the game again. The game can be 
ended at any time by pressing the System Reset key. 
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ATARI® Fun 
and Games 


SOFTWARE 

AVAILABLE 


If you are intrigued with the possibilities of the programs included in 
ATARI ® Fun and Games (TAB Book No. 1945), you should definitely 
consider having the ready-to-run disk containing the software applica¬ 
tions. This software is guaranteed free of manufacturer’s defects. (If 
you have any problems, return the disk within 30 days, and we’ll send 
you a new one.) Not only will you save the time and effort of typing 
the programs, the disk eliminates the possibility of errors that can pre¬ 
vent the programs from functioning. Interested? 

Available on disk for ATARI® 400, 600, 800 and 1200 systems 
(including XE and XL), 32K, at $19.95 for each disk plus $1.00 shipp¬ 
ing and handling. 


I’m interested. Send me: 

_ disk for ATARI® 400, 600, 800, or 1200 

systems, 32K (6324S) 

_ TAB BOOKS catalog 

_ Check/Money Order enclosed for $19.95 

plus $1.00 shipping and handling for each 
disk ordered. 

_ VISA _ MasterCard 

Account No. _ Expires _ 

Name _ 

Address _ 

City_State_Zip_ 

Signature _ 

Mail To: TAB BOOKS Inc. 

P.O. Box 40 

Blue Ridge Summit, PA 17214 

(Pa. add 6% sales tax. Orders outside U.S. must be prepaid with 
international money orders in U.S. dollars.) 
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ATARI® Fun and Games 

by Linda M. Schreiber 

If you’re in the market for some new and different games to play 
on your ATARI microcomputer ... but don’t want to shell out big 
bucks for an expensive disk or tape cartridge . . . this book is just 
what you’ve been looking for! Featuring a collection of more than 
20 different action-packed game programs that run on any model 
ATARI with at least 16K of RAM, this sourcebook includes both new 
adaptations of traditional board and card games and games written 
specifically for computer play ... something to please and challenge 
all ages and experience levels. 

These ready-to-run fun and game programs are designed to 
make the most of your ATARI’S special sound, graphics, and color 
capabilities and include: games for kids like Go Fish, Marbles, and 
Jacks; action simulations such as Ski, Battleship, and Pinball; card 
games including Blackjack and Old Maid; grid games like Treasure 
Hunt and The Great Abyss . . . plus word games (Robotman and 
Fractured Stories are two examples) and logic games such as Peb¬ 
bles and Tower of Hanoi. Several games are especially designed 
to use the ATARI’S unique player/missile graphics, movable character 
sets and interrupts. 

And that’s not all! If you’d like to try your hand at writing your 
own original game programs, this is your source for documentation 
techniques and other game-writing devices ranging from the use of 
PEEK and POKE and using machine calls to some amazingly 
sophisticated string memory applications. Each game includes line- 
by-line explanation as well as flowchart and character set so you'll 
be able to thoroughly understand methods used in game develop¬ 
ment . . . particularly valuable to novice programmers who want to 
broaden their programming horizons or for those who want to 
customize the games to suit their own particular interests. 

Exceptionally well written and documented, this is a program¬ 
ming guide that will keep you and your family amused for hours on 
end . . . and improve your programming skills at the same time. 

Linda M. Schreiber is the author of several bestselling computer 
books for TAB including ATARI Programming. . . with 55 Programs. 
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